







Program IS" 


| Eindrucksvolle BINehEO> iR a 


- "C-16 und Plus 4 
‚sich zu DFÜ-C 


Gm wie = 


 Einführender K Kurs “ 
‘Eprombrennen” , + 


Das erste und einzigartige 


SOFIWARE-MAGAZIN 


Die aktuelle Ausgabe gibt’s jetzt überall 





Nr. 5 / Mai 1988 
3 Jahrgang 


SET 
Str 6,50 


DM 6,50 


UNTE 
un GENom MEILE 


Di e um fa £ 
ngrei 
Information, - 


® 132 Seiten Programme im Test 

® der Software-Markt auf einen Blick 

® speziell gesuchte Software kann direkt 
beim Hersteller bestellt werden 

® für alle Anwender von Heimcomputern 


EDITORIAL EEE 


Programmautoren im Wettbewerb 


Der Wettbewerb läuft auf vollen Touren! Die Qualität vieler eingesen- 

.deter Programme läßt keine Wünsche offen, und die Entscheidung, 
welche Programmautoren aus dem Wettbewerb als Sieger hervorge- 
hen werden, wird uns sicherlich schwerfallen. Wir haben wieder ein- 
mal die besten Programme für Sie aussortiert, und es ist eine inter- 
essante Auswahl aus Anwendungs- und Spielprogrammen entstan- 
den, die das Arbeiten und Programmieren erleichtern und komforta- 
bler gestalten oder Ihre Spielesammlung durch neue Spielehits er-- 
weitern. Als besonderen Leckerbissen haben wir u.a. eine Sprite- 
Routine für Sie abgedruckt, mit der Sie Softwaresprites in rasendem 
Tempo über den Bildschirm bewegen können. Für unsere Schach- 
freunde gibt es ein neues Programm, das in einem Spiel mit Partner 
Schiedsrichterfunktion übernimmt. Unter den Spielelistings haben wir 
das Spiel Breakout- Konstruktion-Kid zum Superlisting gekrönt. Die 
altbekannte Spielidee des Breakouts erfährt in diesem Spiel eine inter- 
essante Variante und wird zudem sehr gut umgesetzt. Auch über Neu- 
heiten auf dem Softwaremarkt gibt es wieder einmal Interessantes zu 
berichten. So sind beispielsweise, nachdem die User lange Zeit ver- 
geblich auf ein Terminalprogramm für den C-16 warteten, nun gleich 
zwei Neuerscheinungen auf dem Markt erhältlich. 


.zum Wettbewerb 


Nach dem Motto: Wer den C-16 nicht ehrt, ist den Amiga nicht wert, 
können seit der Ausgabe 1/88 alle C-16-Programmierer in unserem. 
Sonderheft zum Wettstreit antreten. Wir suchen nämlich die besten 
Programme für den kleinen Commodore. Das können Super- 
Programme sein, die ein ellenlanges Listing beinhalten, oder aber ganz 
kurze Listings, die eine ganz entscheidene Hilfe für jeden C-16-Freak 
sein können. Entscheidend ist also die Qualität und nicht die Quantität! 


Natürlich sollen unsere Programmierer auch eine zusätzliche Beloh- 
nung erhalten, neben dem normalen Honorar für die erbrachte Leistung. 
Halten Sie sich fest: Für die drei besten Programmbeiträge stiftet der 
Tronic-Verlag einen Amiga 500, einen Atari ST und einen C-64! - 


Hinzu kommen noch weitere 30 Preise, für die sich die Teilnahme eben- 

. falls lohnt. So einfach können Sie zu einem größeren Computer kom- 
men! Die einzige Bedingung ist die Veröffentlichung Ihres selbst ent- 
wickelten Programms in einer der sechs Ausgaben, die in diesem Jahr 
erscheinen werden. 


older Aobnuel 


Volker Lohrengel 
(Chefredakteur) 
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Centronics-Schnittstelle 
für den 
Plus4 





Erweiterung: Centronics- 
Interface 

Preis: 77,52 DM 
Bezugsquelle: 
Elektronik-Technik, Uwe Pe- 
ters, Tannenweg 9, 2351 Trap- 


penkamp, Tel. 04323/3991 


des Plus4 ist sicherlich die 
2 ungewöhnliche Schnitt 
stelle. Insbesondere beim An- 
“schluß eines Druckers macht 
“ sich diese negativ bemerkbar. 
Obwohl sich an fast jeden 
#"POPELCOMPUTER” . ein 
Standard Centronics Drucker 
anschließen läßt, benötigen alle 
Commodore Systeme ein zu- 
sätzliches Interface. Ein sol- 
ches Interface wandelt in der 
Regel die seriellen Daten um 
‚und gibt sie per Centronics- 
“ Schnittstelle weiter. Nachteil, 
das Interface'ist nicht billig und 
„kostet meist über 200 DM. 


F iner der größten Nachteile 


»Glücklicherweise besitzt der 
.Plus4 einen USERPORT, der 
für diese Zwecke ideal genutzt 
werden kann. Er besitzt näm- 
lich genügend Leitungen, um 
eine Centronics-Schnittstelle 
zu simulieren. Voraussetzung 
ist lediglich ein geeignetes Ka- 
bel und eine Centronics- 
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Schnittstelle, die den USER- 
PORT entsprechend verwan- 
delt. Genau dieses bietet die 
Firma Elektronic-Technik 
(Trappenkamp) unter der Be- 
zeichnung CENTRONICS- 
INTERFACE an. Das Ganze 
kostet 77,52 DM und besteht 
aus einem Anschlußkabel und 
einer Programmdiskette. Die 
Dokumentation ist in Form ei- 
nes SCRIPT PLUS Files auf 
der Diskette zu finden. 


Die Installation des Program- 
mes ist denkbar einfach, man 
lädt das Programm DRUCKER: 
und startet es mit RUN. Da- 
nach hat man noch die Mög- 
lichkeit, eine CBM-ASCII- 
Konvertierung oder ein auto- 
matisches LINE-FEED einzu- 
schalten. Auch die Geräte- 
adresse kann frei gewählt wer- 
den. Verwendet man hier bei- 
spielsweise die übliche Vier, so 


die preiswerte Software-Lösung 
m u ee er men 0 er 


kann der Drucker über jedes 
Standard-Programm ange- 
sprochen werden. Ein Um- 
schreiben vorhandener Pro- 
gramme ist also nicht notwen- 
dig, da das Betriebssystem 
bzw. einige Pointer modifiziert 
werden. Da einige Drucker 
unterschiedliche Steuerzei- 
chen verwenden, stehen für ein 
HARDCOPY drei unterschied- 
liche Treiber zur: Verfügung. 
Diese sind in erster Linie für die 
Druckertypen EPSON, STAR 
und PANASONIC gedacht. Da 
jedoch der MC-Treiber in Form 
eines dokumentierten Basic- 
Programmes vorhanden ist, 
läßt sich dieser auch an andere 
Druckertypen anpassen. Dies 


geschieht einfach durch das 


Ändern einer DATA-Zeile. Für 
den Anwender der eingebau- 
ten Textverarbeitung wird ein 
Utilitie mit der Bezeichnung 
”3+ 1-UTI” mitgeliefert. Durch 





dieses Utilitie arbeitet auch das 
eingebaute Textprogramm 
über die neue Centronics- 
Schnittstelle. 

Abgerundet wird das Software- 
Interface durch einige BASIC- 
Demonstrationsprogramme, 
die zeigen wie man den 
Drucker ansprechen kann. Der 
Assembler-Programmierer fin- 
det in der Dokumentation auch 
Hinweise auf die Arbeitsweise 
und die neue Belegung des 
USERPORTES. 


Fazit: Man sieht wieder einmal, 
daß sich mit dem PLUS4 und 
ein wenig Software fast alles 
Erdenkliche machen läßt. Für 
knapp 80 DM bekommt man 
ein SOFTWARE-Interface, 
welches durchaus mit einem 
reinen HARDWARE-Interface 
konkurrieren kann. 


je Frank Brall 
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Programm: Druck 88 
System: Plus4 und C16(64k) 
Preis: 29 DM 
Hersteller/Bezugsquelle: 
ComBüse, Computer-Büro- 
Service, EDV-Entwicklungen, 
Volker Lützenkirch & Hans- 
Gerhard Fey GbR, Ederstr. 7, 
1000 Berlin 44 


Mittlerweile gibt es für die 
Computersysteme C16 sowie 
Plus 4 nun wirklich genug 
Textprogramme, so. könnte 
man meinen. Die Quantität der 
Produkte bürgt aber nicht für 
die Qualität, denn die vorhan- 
den Programme erfüllen nicht 
immer die Wünsche an- 
spruchsvoller Anwender. Ins- 
besondere mangelt es oft an 
Funktionen zur Textformatie- 
rung. So kommt man bei vielen 
Programmen über einen 
Blocksatz oder bestimmte 
Randeinstellungen nicht hin- 
aus. Ein weiteres Problem vie- 
ler Textverarbeitungsprogram- 
me besteht in der Dı uckeraus- 
gabe. Oft werden nur Stan- 
dard-Commodore Drucker un- 
terstütz, wobei leistungs- 
stärkere Modelle wie EPSON 
oder STAR auf der Strecke 
bleiben. So kann es passieren, 
daß beispielsweise nicht ein- 
mal die Umlaute oder sogar 
noch wichtigere Zeichen aus- 
gedruckt werden können. 


Um diese und andere Pro- 
bleme zu beseitigen, wurde 
DRUCK 88 entwickelt. Bei 
DRUCK 88 handelt es sich 
nicht _ um ein universelles 
Textprogramm, sondern um 
eine Art Textausgabepro- 
gramm. Das Programm bietet 


sich also als Ergänzung zu an- 
deren Textverarbeitungspro- 
grammen an, ja es setzt diese 
sogar voraus. Sicherlich wird 
jetzt so mancher fragen, mit 
welchem Textprogramm es 
denn zusammenarbeitet? Ver- 
wendet nicht jedes Textpro- 
gramm eine andere Zeichen- 
dekodierung? In der Tat ver- 
wundert mich dieses Phäno- 
men ebenfalls. Das Programm 
löst das Problem durch spe- 
zielle Installationsprogram- 
me. 

Der VOSar ist relativ einfach: 


Fi Pi Tenase: 
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Man schreibt mit seinem 
Textprogramm eine bestimmte 
Zeichenfolge des Handbuches 
ab, ruft den Zeichensatzgene- 
rator auf und schon wird das 
Ausgabeprogramm’ entspre- 
chend angepaßt. Der Vorgang 
ist wirklich recht einfach und 
wird in dem 14-seitigen 
Handbuch ausführlich be- 
schrieben. Für bekannte 
Textprogramme wie TEXTMA- 
NAGER oder SCRIPT PLUS 
sind sogar schon entspre- 
chende Treiber auf der Diskette 
installiert. 


Nachdem die Installation 
beendet ist, kann das Pro- 
gramm gestartet werden. Es 
meldet sich mit einem bedie- 
nungsfreundlichen Leuchtbal- 
kenmenü. Von diesem aus las- 
sen sich nun alle Vorgänge 
steuern. Neben den üblichen 
Einstellungen wie Rand, Zeilen 
pro Seite lassen sich auch 
noch weitere Parameter verän- 
dern. Wahlweise kann das 
Programm auf den Standard 
oder den deutschen Zeichen- 
satz eingestellt werden. Auch 
die Seitennummerierung und 
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der Randausgleich lassen sich 
wahlweise ein- bzw. ausschal- 
ten. 

Erwähnenswert ist die Eigen- 
schaft, die Anzahl der einzufü- 
genden Leerzeichen frei zu be- 
stimmen. Besonders nützlich 
ist die Definition des Ausgabe- 
zieles. Hier kann man nämlich 
zwischen Matrixdrucker, Ty- 
penraddrucker oder Disketten- 
ausgabe wählen. Sogar unter- 
schiedliche Schnittstellen kön- 
nen definiert werden, nämlich 
COMMODORE, CENTRO- 
NICS oder BROTHER. Bei der 


CENTRONICS werden die Da- 
ten parallel und bei der BROT- 
HER seriell übertragen. Ein 
Interface ist in beiden Fällen 
nicht notwendig, da der 
USERPORT verwendet wer- 
den kann. C16-Besitzer können 
von dieser Möglichkeit also nur 
dann Gebrauch machen, wenn 
Sie einen kompatibelen USER- 
PORT besitzen.. 


Der große Vorteil von DRUCK 
88 liegt jedoch nicht nur bei 
den erwähnten Parameterein- 
stellungen, sondern auch bei 
den neuen Befehlen zur 
Textformatierung. Die neuen 
Befehle bestehen aus be- 
stimmten Buchstabenkombina- 
tionen, die einfach mit dem 
vorhandenen Textprogramm in 
den entsprechenden Text ein- 
gefügt werden. Etwa 60 neue 
Funktionen stehen mit DRUCK 
88 zur Verfügung. Mit ihnen 
läßt sich praktisch alles ma- 
chen, was Ihr Drucker zuläßt. 
Unter anderem lassen sich 
verschiedenste Schriften an- 
wählen, Randausgleich ein- 
bzw. ausschalten, Zeilenab- 
stand einstellen, Zeichensatz 
wählen, neue Seiten beginnen, 
Text einrücken, ein anderes 
Textfile oder sogar eine Grafik 
einbinden. 


Gerade das Einbinden von 
Grafik zählt zu den interessan- 
testen Feature von DRUCK 88. 
Es lassen sich praktisch alle 
Grafiken verarbeiten, die als 
reines Bitmap vorliegen. So 
können zum Beispiel Zeich- 
nungen vom bekannten Pro- 
gramm CAD 123 verarbeitet 
werden. DRUCK 88 gestattet, 
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die Grafiken auf verschiedene 
Weise auszugeben, einzeln, 
doppelt nebeneinander oder 
doppelt untereinander. Natür- 


lich lassen sich auch verschie- 


dene Bilder neben- oder unter- 
einander ausgeben. Auch das 
Einbinden von Grafik ist 
denkbar einfach, denn neben 
dem entsprechenden Befehl 
und dem Filenamen des Bildes 
brauchen keine weiteren An- 


gaben im Text gemacht zu 
werden. Ein weiterer Vorteil 
des Programmes besteht darin, 
daß selbst dann Umlaute aus- 
gegeben werden können, 
wenn das Textprogramm keine 
Umlaute besitzt. . Allerdings 
muß man sich auch dann da- 
mit abfinden, daß diese nicht 
auf dem Bildschirm dargestellt 
werden. 

Alles in allem zeigte sich das 


REPORT EEE 


Programm als vielseitig und 
zuverlässig. Allerdings konnten 
wir es nur in Verbindung mit ei- 
nem Commodore Drucker te- 
sten. Für einen Preis von 
knapp 30 DM ist DRUCK 88 
ohne Bedenken zu empfehlen. 
Allerdings sollte sich die Auto- 
ren einer Textverarbeitung mal 
Gedanken machen, ob es nicht 
möglich ist, ein Textprogramm 
von vornherein mit mehr Befeh- 


len und entsprechenden Mög- 
lichkeiten auszustatten. 
Frank Brall 
Positiv: 
Gutes Preis/Leistungsverhält- 
nis, zahlreiche Funktionen, ein- 
fache und flexible Installation, 
unterstützt selbst Centronic- 
und Brother-Schnittstelle, aus- 
reichende deutsche Dokumen- 
tation 
Negativ: -- 


Modem und Akustikkoppler 


am PLUS4A 


Programm: RS232 

Preis: ca. 78 DM 
Bezugsquelle: Elektronic- 
Technik ETP, Tannenweg 9, 
2351 Trappenkamp 


Nachdem wir in der letzten 
Sonderausgabe unser eigenes 
DFÜ-Programm abdruckten, 
sind wir inzwischen auf ein wei- 
teres interessantes Programm 
gestoßen. Unter der Bezeich- 
nung RS232 Interface bietet 
die Firma Elektronik Technik 
ETP seit geraumer Zeit eine 
Komplettlösung an. Für ein 
komfortables _Terminalpro- 
gramm und ein echtes RS232 
Interface bezahlt man knapp 78 
DM, sicherlich ein gerechtfer- 
tigter Preis. 


Wie auch schon bei anderen 
ETP Produkten wird die Doku- 
mentation auf Diskette gelie- 
tert. Diesmal jedoch nicht als 
Textfile, sondern als eigen- 
ständiges Basic-Programm. 
Das Terminalprogramm selbst 
besteht aus mehreren Teilen 
und kann mit SHIFT/RUN/ 
STOP gebootet werden. Ein 
besonderes Feature dieses 
Terminalprogramms besteht in 
der eingebauten Telefonliste. 
Bis zu 140 Telefonnummern 
mit dazugehörigen AUTO- 
LOGON können verwaltet wer- 
den. Es ist sogar möglich, ei- 
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nen entsprechenden Eintrag 
herauszusuchen und automa- 
tisch anwählen zu lassen. Dies 
setzt natürlich voraus, daß man 
ein Modem anschließen kann. 
Und genau dieses erlaubt das 
Terminalprogramm. 

Sollte es jedoch Schwierigkei- 
ten mit der Postgenehmigung 
geben, so kann natürlich auch 
ein herkömmlicher Akustik- 
koppler verwendet werden. Im 
Test verwendeten wir das DA- 
TAPHON, welches sehr sicher 


und zufriedenstellend arbeitet. 
An wünschenswerten Funktio- 
nen ist eigentlich alles vorhan- 
den, was der Hacker für die 
Grundausstattung benötigt. Die 
Parameter (Parität, Bitanzahl, 
Baudrade, Echo) können prak- 
tisch an alle Erfordernisse 
angepaßt werden. Besonders 
flexibel ist die Baudrate. Sie 
kann auf folgende Werte .ein- 
gestellt werden: 50 /75/ 109,92/ 
134,58/ 300 / 600/ 1200 /1800 
/2400 / 3600 Baud. Wozu die 


krummen Werte dienen, ist mir 
zwar unklar geblieben, jedoch 
schaden können sie wohl nicht. 
Das Terminalprogramm arbei- 
tet vollständig über Menüs, was 
die Bedienung sehr verein- 
facht. Vom Hauptmenü aus 
lassen sich folgende Funktio-. 
nen aufrufen: 

- Automatische Wahl aus dem 
Register 2 
- Parameter einstellen 

- Wahl von der Computer- 
Tastatur 
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- Untermenü 
- Register von Datendisk laden 


- Modem von Telefonleitung 


abschalten 

- Terminal (ONLINE) 

- Autoanswer 

Besonders interessant ist 
neben den Standard-Funktio- 
nen auch die Funktion Auto- 
answer. In diesem Modus war- 


Und wied 


Programm: Datei V1.0 
System: Plus4 und C16(64k) 
Preis: 19,50 DM ; 
Hersteller/Bezugsquelle: Jür- 
gen Vorwerk, Dörener Weg 
29a, 4790 Paderborn 


Das Thema Dateiverwaltung 
scheint nicht‘ abzureißen. 
Nachdem wir bereits in ver- 
gangenen Ausgaben mehr- 
mals Dateiprogramme für den 
C16 bzw. PLUS 4 vorgestellt 
haben, möchte ich es nicht 
versäumen, das bekannte Pro- 
gramm DATEI V1.0 vorzustel- 
len. Es hat sich ja gezeigt, daß 
man unter dem Begriff Datei- 
verwaltung oft völlig Unter- 
‘ schiedliches versteht. Nicht 
selten handelte es sich bei den 
vorgestellten Programmen um 
kleine BASIC-Utilities, die oft 
nur bedingt geeignet waren. 


tet der Computer auf einen An- 
ruf. Bei Eintreffen des Anrufs 
schaltet der Computer in den 
Terminalmodus und wartet auf 
Daten. In einem zusätzlichen 
Untermenü verstecken sich die 
wertvollen Funktionen zum 
Aufzeichnen der Verbindung. 
Selbstverständlich läßt sich 
dieses Protokoll auch spei- 


chern, laden und später auch 
betrachten. Der Speichermo- 
dus kann übrigens über eine 
Tastenkombination vom Ter- 
minalmodus jederzeit ein- bzw. 
ausgeschaltet werden. Natür- 
lich läßtsich auch ein vorberei- 
teter Text übertragen, aller- 
dings muß dieser als sequen- 
tielles File vorliegen. 





Fazit: Wer einen Plus4 für DFÜ 
einsetzen möchte, ohne erst 
lange basteln zu müssen, fin- 
det hier sicherlich die ideale 
Lösung. Im Test zeigte sich das 
Programm als auch die 
Hardware zuverlässig und be- 
dienungsfreundlich. 


Frank Brall 


er eine Dateiverwaltung 


Obwohl es sich bei DATEI V1.0 
ebenfalls um ein Basic Pro- 
gramm handelt, welches sogar 
sehr preisgünstig ist, zeigt es 
doch interessante Feature. Ins- 
besondere zeichnet sich das 
Programm durch eine relative 
Dateiverwaltung mit Indexver- 
waltung aus. Der Vorteil ge- 
genüber einer sequentiellen 
Dateiverwaltung besteht im di- 
rekten Datenzugriff. Positiv zu 
bewerten ist auch die große 
Anzahl der möglichen Daten- 
sätze. Je nach Anzahl der Fel- 
der bzw. deren Feldlänge Jas- 
sen sich meist weit über 1000 
Datensätze verwalten. 


Die Bedienung von DATEI V1.0 
ist denkbar einfach und erfor- 
dert eigentlich keine Dokumen- 


tation. Trotzdem ist eine aus- 


führliche Anleitung auf Diskette 
vorhanden. Diese kann wahl- 


weise auf dem Bildschirm oder 
einem angeschlossenen Dru- 
cker ausgegeben werden. 


Fall müssen vorher die Feldbe- - 
zeichnungen und deren Län- 
gen eingegeben werden. Maxi- 
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Nach dem Start des Program- 


‚mes kann entweder eine alte 


Datei eröffnet oder eine neue 
generiert werden. Im letzteren 








“ä 
mal 10 Felder mit bis zu 24 Zei- 
chen können definiert werden. 
Leider unterscheidet das Pro- 
gramm keine Feldarten. Alle 
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Felder werden daher als 
Textfelder definiert. Ist dieser 
Vorgang beendet wird die Dis- 
kette entsprechend vorbereitet. 
Dies kann übrigens bis zu 5 
Minuten dauern, so daß man 
ruhig eine Kaffeepause ma- 
chen kann. 








Die Eingabemaske scheint mir 
sehr sicher zu arbeiten, denn 
selbst beabsichtigte Bedie- 
nungsfehler führen zu keiner 
Störung bzw. Verschiebung. 
Natürlich ist das A und O einer 
Dateiverwaltung immer noch 
die Suchfunktion. Auch hier 


EEE 


% 
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Nach der Kaffeepause befindet 
man sich direkt im Hauptmenü: 
(1) NEUE DATEI ERSTELLEN 
(2) DATEN EINGEBEN 

(3) DATENDISKETTEN 
WECHSEL 

(4) BLÄTTERN IN DER DATEI 
(5) DRUCKEN DER DATEN 
(6) SUCHEN VON DATEN- 
SÄTZEN 

(7) INDEXLISTE 

(8) FUNKTIONSTASTENBE- 
LEGUNG 

(9) PROGRAMM VERLASSEN 


Praktisch alle Funktionen des 
Programmes werden über Me- 
nüs'bzw. Abfragen gesteuert. 
Auf diese Weise haben selbst 
Einsteiger keine Probleme bei 
der Verwaltung Ihrer Daten. 
Die Datensätze werden über 
eine Art Maske eingegeben. 


zeigt sich das Programm sehr 
zuverlässig. Es ermöglicht die 
Suche nach jedem beliebigen 
Feld, wobei Feld 1 (INDEX- 
FELD) immer am schnellsten 
gefunden werden kann. Bei 
den restlichen Feldern muß das 
Programm Datensatz für Da- 
tensatz einlesen und mit dem 
Suchbegriff vergleichen. Es 
versteht sich von selbst, daß 
dies nicht besonders schnell 
geht. Das Programm benötigt 
bis zu 6 Sekunden pro‘ Daten- 
satz. Steht ein Datensatz beis- 
pielsweise an 100. Stelle, so 
dauert dies ca. 6 Minuten 
(100*6 Sekunden). Man sollte 
daher versuchen, das INDEX- 
FELD geschickt auszunutzen. 


Eine Sortierroutine ist in dem 
Programm nicht zu finden, was 


Eine Linie zeigt die mögliche ° wohl der .Schwachpunkt des 
Feldlänge an. Als vorteilhaft Programmes zu sein scheint. 
empfinde ich die Unterstützung Die Druckerausgabe funktio- 
der Cursörtasten. Über sie niert über jeden Commodore 
kann sowohl vorwärts als auch Standard Drucker, wobei ent- 
rückwärts von Feld zu Feldge- weder die Datensätze komplett 
sprungen werden. Nur das Edi- _ oder selektiert ausgegeben 


tieren innerhalb eines Feldes 
wurde völlig vergessen. Aller- 
dings dürfte dies bei einer ma- 
ximalen Feldlänge von 24 Zei- 
chen nicht unbedingt notwen- 
dig sein. 
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werden können. Das Selektie- 
ren erfolgt ebenfalls über eine 
Suchfunktion. Nachteil, es 
dauert eventuell einige Zeit. 
Neben der Suchfunktion eignet 
sich auch die Funktion Blättern 
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zum Suchen eines Datensat- 
zes. Allerdings benötigt auch 
sie einige Sekunden pro Da- 
tensatz. Vorteilhaft ist, daß ein 
Datensatz auch nachträglich 
über eine Maske editiert wer- 
den kann. 


Fazit: Auch DATEV V1.0 istsi- 
cherlich noch nicht das per- 
fekte Dateiverwaltungspro- 
gramm. Jedoch zeigt es zu- 
mindest ansatzweise Eigen- 
schaften, die die an eine Datei- 
verwaltung zu stellenden An- 
forderungen erfüllen. Hierzu 
gehört sicherlich die RANDOM- 
Datei, die Indexverwaltung und 





Programmname: Profi-Disk 
Preis: 29,95 DM 
Bezugsquelle: R. Linden- 
schmidt, Schulstr. 14, 

4972 Loehne 2 


Neidisch schaut so mancher 
C16 bzw. Plus4 Besitzer auf die 
moderne Benutzeroberfläche 
des C64 oder des Amiga. Es ist 
schon bequem, wenn man mit 
Maus oder Joystick Files kopie- 
ren, Disketten formatieren und 
viele andere alltägliche Aufga- 
ben erledigen kann. Die Firma 
Lindenschmidt macht nun dem 
Leid der C-16 User ein Ende. 
PROFI-DISK, so nennt sich 
eine neue Benutzeroberfläche 
für den Plus4 oder den erwei- 
terten C16 (64k Version). 


Allerdings zeigte sich im Test, 
daß die Bezeichnung Benutzer- 
oberfläche wohl etwas über- 
trieben ist, vielmehr sollte man 
von einer Art Diskettenhilfspro- 
gramm sprechen. Denn nach 
dem Start des Programmes 
werden lediglich zwei Pull- 
down-Menüs bereitgestellt, 
welche fast ausschließlich Dis- 
kettenoperationen erlauben. 


Das Pulldown-Menü "DISK” er- 
laubt die Funktionen INHALT, 


Benutzeroberfläche | 


für den C16/Plus4 


die sichere Eingabemaske. Für 
den Preis von knapp 20 DM ist 
das Programm uneinge- 
schränkt zu empfehlen. 


Frank Brall 


Positiv: RANDOM- 
Dateiverwaltung, Indexfeld, si- 
chere Eingabemasken, umfan- 
greiche Dokumentation, gutes 
Preis/Leistungsverhältnis 


Negativ: nur ein Indexfeld, 
keine Sortierroutine, teilweise 
sehr langsame Suchfunktion, 
keine spezielle Druckeranpas- 
sung 





NEU, NAME, VALIDATE, INI- ° 
TIAL, ID und FEHLER. Die ein- 
zelnen Funktionen reißen einen 
wirklich nicht vom Hocker, 
handelt es sich doch im we- 
sentlichen nur um die einge- 
bauten Floppyfunktionen. Et- 
was vielseitiger sind da schon 
die Funktionen des zweiten 
Pulldown-Menüs, nämlich LÖ- 
SCHEN, KOPIEREN, NAME; 
RETTEN, SCHUTZ und 
DRUCK. Insbesondere die 
Funktionen zum Schützen und 
Kopieren von einzelnen Files 
können oft nützlich eingesetzt 
werden. Die Funktion Druck er- 
laubt leider nur die Director- 
yausgabe, hier wäre eine Dat- 
eiausgabe sicherlich ebenso 
wichtig gewesen. 


Die Bedienung der "Benutzer- 
oberfläche” ist allerdings gut 
gelöst, sie erfolgt ähnlich wie 
bei anderen Systemen über 
eine Maus oder einen vorhan- 
denen Joystick. Die Geschwin-: 
digkeit ist übrigens stufenlos 
einstellbar. Ob einem die 
"Benutzeroberfläche” aller- 
dings den Preis von 29,95 DM 
wert ist, muß wohl jeder An- 
wender selbst entscheiden. 


Frank Brall 
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Im Blickpunkt: 


Programmname: MAILBOX- 
Sys 

„Preis: noch unbekannt 
Erweiterung: Echtzeituhr 
Preis: 98 DM 

Bezugsquelle: Karin Guss, 
Guss Data Connection, Hoch- 
str. 13, 5940 Lennestadt 1 


Nachdem es anfangs in bezug 
auf Plus4 und DFÜ nicht sehr 
rosig aussah, kehrt sich das 
Bild nun langsam um. Der 
Plus4 als auch der C16 mau- 
sern sich zum echten DFU- 
Computer. Mittlerweile haben 
wir sogar eine Version eines 
echten Mailboxprogrammes 
bekommen. 


MAILBOXSYS, so nennt sich 
das neue Programm der Firma 
Guss Data Conection. Ein wei- 
teres neues Produkt dieser 
Firma ist eine Echtzeituhr, die 
zusammen mit dem Mailbox- 
programm “angeboten wird. 
Diese Echtzeituhr ist für das 
Mailboxprogramm unbedingt 
erforderlich, läßt sich jedoch 
auch für andere Programme 
oder Entwicklungen verwen- 
den. Der Preis der Echtzeitühr 
beträgt 98 DM, der des Mail- 
boxprogrammes stand bei Re- 
daktionsschluß noch nicht fest. 


Die Echtzeituhr wird im Expan- 
sionsport betrieben, erfordert 
jedoch zusätzlich noch eine 
Drahtverbindung im Inneren 
des Rechners. Über ein mitge- 
liefertes Programm läßt sich die 
eingebaute Uhr prüfen und na- 
türlich auch stellen: Eine kurze, 
aber ausführliche Anleitung er- 
läutert die genaue Adressie- 
rung, so daß man eine Abfrage 
auch in eigene Programme 
einbauen kann. 


Das Mailboxprogramm selbst 
ist etwas komplexer aufgebaut. 
- Im wesentlichen besteht das 
Mailboxsystem aus zwei Pro- 
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Plus4 als Mailbox 
mit Echtzeituhr 


grammteilen, dem eigentl- hält das Programm bei- Das eigentliche Betriebspro- 
chem Betriebsprogramm, und spielsweise ein Einrichtung gramm ist recht einfach aufge- 


dem Wartungsprogramm. 


Das Wartungsprogramm dient 
dem regelmäßigen Warten der 
Box. Nach dem Start stehen 
hier folgende Menüpunkte zur 
Auswahl: 

1. Datendisk vorbereiten 

2. Userverwaltung 

3. Userfiles verwalten 

4. Usergroup verwalten 

5. Parameter ändern 

6. Mailfiles editieren 

7. Systemfiles editieren 

8. Postfach einrichten 

9. Modulnamen editieren 

10. Directory 


Wie schon aus dem Haupt- 
menü zu erahnen ist, handelt 
es sich hier um ein Mailbox- 
programm, welches tatsächlich 
die Eigenschaften professionel- 
ler Systeme aufweist. So ent- 


zum Sammeln von Useranträ- 





gen. Die einzelnen Anträge 
lassen sich später überprüfen 
und automatisch übernehmen 
bzw. löschen. Auch das Erstel- 
len einer sortierten Userliste 
geht automatisch. Natürlich 
können jederzeit auch die ein- 
gegangen Texte überprüft, ge- 
löscht oder editiert werden. 
Auch Funktionen wie Mail ein- 
geben, Postfach einrichten, 
Userliste abrufen oder Pass- 


. wort ändern, sind über das 


Wartungsprogramm erreichbar. 


im Parametermenü lassen sich 
praktisch alle wichtigen Sy- 
stemparameter festlegen, z.B. 
die Länge der zulässigen Ein- 
tragungen, die Anzahl der Dis- 
kettenlaufwerke, das Bytelimit 
zu unterschiedlichen Zeiten 


und ähnliche Dinge. Zusätzlich 
hat man noch ein: System- 
menü, über welches man das 
Impressum und die einzelnen 
Rubriküberschriften nach ei- 
genen Wünschen gestalten 
kann. 


baut, was nicht heißen soll, daß 


es nichts leistet. Nachdem man 
Timout und Datum festgelegt 
hat, braucht der Sysop nur 
noch die Taste F1 (START) zu 
betätigen, und alles geht auto- 
matisch. Mit einem geeignetem 
Modemprogramm, welches 
über die gleiche Firma bezo- 
gen werden kann, geht nun al- 
les automatisch. Während des 
Mailbox-Betriebes werden die 
Uhrzeit, die Useranzahl, die 
bisherige Anruferzahl und die 
freien Blocks angezeigt. 


MAILBOXSYS unterstützt bis 
zu 4 Floppylaufwerke und ar- 
beitet wahlweise im 300 oder 
1200 Baud Betrieb. Also ein 


wirklich professionelles 
Programm! 
x Frank Brall 
C16 - SA 5/88 


18. Datensysteme-Vertriebsgesellschaft aslelz 


we) 
2 soMusicsynthesize, 
9,90 Tycoon Tex 19 29,90 Kikstart 


9,90 


Alle Preise sind Ladenpreise. Bei Versand per Nachnahme berechnen wir Porto 5,90 DM, bei Vorkasse mit PER} U {33 EFO 
Scheck 2,50 DM. Zum Bestellen einfach ankreuzen und abschicken! 09 ! U LEITET 
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Power-Hit- ‚Bestellung C-16 


DO Greatest Hits 29,90 U] Spectipede D Turbo Accounts (deutsch) 


OD Joystick Adapter 

OD Speichererweiterung 
DO Four great Games 
DA.C.E. 

D Adress (deutsch) 

D Aliens UK 

D Atlantis 

OD Auf Wiedersehen Monty 
OD Auriga 

D Bandits at Zero 

D World Series Baseball 
D Battle 

OD Battlestar 

D Berks 

DO. Berks Trilogy 

D Big Mac 

DO] BMX Racer 

DO] BMX-Simulator 

DO) Bounder/Planetsearch 
ED Bubble Trouble 

Ol) Championship Wrestling . 
D Classics Il 

D Classics Ill 

D 10 Computerhits Ill 
ED 10 Computerhits IV 
DO Datei (deutsch) 

UO] Datenbank 

Ol) Death Race 16 

D Defence 16 . 

DO) Demolition 

Dirty Den 
Dizasterblaster 
Dork's Dilemma 
European Games 

DO Finders Keepers 

D Fingers Malone 

DO Five Star Games | 

OD Five Star Games Il 

D Five Star Games Ill 
D Flight Path 737 

ED Footballer of the Year 
Football Manager 
Formula One 

Frank Bruno’s Boxing 
Freneis 

Future Knights 
Future Shock 

DO Galaxions 

DO Games Pack I 

O) Games Pack Il 

DO) Grandmaster Chess 


Denisstraße 45, 8500 Nürnberg, Tel. 09 11 / 28 82 86 


D Turbo Calc 

O Turbo-Tape 

DO Tutti Frutti 

Ol Tycoon Tex 

D Utility (deutsch) 
OD Vegas Jackpot 

DO Video Meanies 

D Vokabel (deutsch) 
DO) Wimbledon 

DO) Winter Events 

OD) Winter Olympics 
DO) World Cup Carnival 
D Xadium 

OI Xargon Wars 

OD Yie Ar Kung Fu 
O Zip 


Für Plus 4 (erweiterter C-16) 


OD Gullwing Falcon 25, ‚90 DO Speed King ° 

DO Gun Law 9,90 DO Spore 

DO) Gwnn 2 9,90 DO Sport 4 

D Hektik 90 DSqij 

DO Hercules 9,90 DI Squirm 

D Home Office D Star Corimander 

DO International Karate DO Star Events 

D Into the Deep DO Starforce Nova 

D Jet Brix DO Steve Davis Snooker 
D Jet Set Willy I D Storm 

DO Jet Set Willy Il DO Street Olympics 

D Kikstart D Summer Events 

DO Killapede D Superhits 

Ol King Size 50 Games OD Tazz 

D Knock Out DO Terra Nova 

Kung Fu Kid DO Text (deutsch) 
Las-Vegas Video Poker R OD Thai Boxing 

Lawn Tennis h OD The Magician’s Curse 
Leapin’ Louie Ä Ol The Return of Rockman 
Manic Miner . DO) The Wizzard and Prinzess 
Masterchess Thrust 

Matrix and Laserzone h Tomb of Tarrabash 
Megabolts Trailblazer 

Molecule Man Triple Decker 1 
Monkey Magic Triple Decker 2 

Mr. Puniverse 90 Trizons 
Musicsynthesizer 

Ninja Master 90 { 

Sk T.$S. Datensysteme, 
DO) Omnibus 1 

DO) Omnibus 2 ß 

OD) One Man and his Droid Absender 

EI Panic Penguin 

DO] Paperboy 

EI Phantom 
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Powerball 
Power Pack I 
Power Pack (neu) 
D Project Nova 
ED) Prospector Pete 
DO Rescue from Zylon 
DO) Rockman 
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Drei Asse im Ärmel ? 


Wer sich denkt, ACE sei gleich 
ACE, kann eine Bauchlandung 
erleben. Nicht immer ist dieser 
Flugsimulator seinen Preis 
auch wert. Drei ACE-Versionen 
sind mittlerweile auf dem 
Markt, die sich in ihrer Qualität 
deutlich unterscheiden. 

Die erste Version läuft ohne 
Erweiterung auf allen drei 
Computern. Entsprechend ist 
die Leistung. Das Flugzeug ist 
ständig in der Luft, die Waffen 
werden per Zufallsgenerator 
ausgesucht und kontinuierlich 
nachgefüllt. Neuen Treibstoff 
gibt es bei jedem vollen Tau- 
send an Punkten. Dieses Pro- 
gramm wurde von lan Martin 
entworfen. Soviel zum ”"Groß- 
vater” der ACE-Triologie. 

Der ”Vater” ist ACE 64k, ein 
Spiel, das um Klassen besser 
ist als sein Vorgänger. Es hat 
sich eben positiv bemerkbar 


gemacht, daß hier gleich drei -- 


Designer zu Werke gingen: lan 


Martin, Nigel Stevens und Guy mißraten. lan Martin war für 


Neues aus der Spielkiste 


Zwei Neuerscheinungen für 
den C16/Plus 4 flatterten uns 
kurz vor Redaktionsschluß 
noch auf den Tisch. Grund ge- 
nug für uns, noch die Tests der 
Programme mit ins Heft aufzu- 
nehmen. 

Die erste Neuerscheinung ist 
die C16/Plus 4-Version ‚von 
Strippoker II Plus. Dieses Pro- 
gramm ist, wie man schon am 
Namen sehen kann, für Kinder 
natürlich weniger geeignet und 
läuft außerdem nur, wenn man 
einen Rechner mit 64K-RAM 
besitzt. Wer nun die Grafiken 
einer Amiga- oder ST-Version 
erwartet, der wird natürlich et- 
was enttäuscht sein. Trotzdem, 
für den C16/Plus 4 ist die Qua- 
lität recht gut. Das Pokerspiel 
an sich ist ebenfalls gut ge- 
macht. Ich glaube, daß man, 
wenn man an einem solchen 
Spiel Interesse findet, mit 
Strippoker Il Plus recht gut be- 
dient ist. Der Preis von 24,95 
DM (Kassette) bzw. 29,95 DM 
(Diskette) erscheint mir ange- 
messen. 

Bei der zweiten Vorstellung 
handelt es sich um keine ei- 
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-Ewigen-Besten-Liste 


Wilhelmy. Der Autor war auch 
hier I. Martin. Bei diesem Spiel 
gehören Start und Landung 
dazu. Außerdem gibt es eine 
klare Bodensicht und desweite- 
ren Wahlmöglichkeiten bei der 
Bewaffnung. Auch bietet ACE 
6AK die Möglichkeit, in der Luft 
ein Tankflugzeug anzufliegen. 
Wahlweise gehört auch eine 
Sprachausgabe dazu. Beson- 
ders gefällt mir, daß in dieser 
Version zwei Spieler nicht nur 
gegeneinander, sondern auch 
miteinander kämpfen können. 
Auch die Erstellung einer 
ist für 
ACE 64k kein Problem. Dieses 
Spiel läuft allerdings nur auf 
dem Plus 4 oder 64k 
Erweiterung. : 

Der Sohn ACE Il halte ich für 





gentliche Neuerscheinung, 
sondern um eine Zusammen- 
fassung von 10 älteren Spielen, 
die unter dem Namen Power- 
pack vertrieben wird. Die ein- 
zelnen Spiele sind bereits vor- 
gestellt worden, so daß ich mir 
dieses spare. Folgende Spiele 
sind in diesem Pack enthalten: 





weitere Abstriche an seinen 
Tantiemen nicht mehr zu ge- 
winnen und schrieb ACE Il 
wieder allein. Dieser Alleingang 
scheint der ACE Il Version ge- 
schadet zu haben. Ein Beispiel: 
Ich habe den Großangriff ge- 
gen den Computer gespielt. 
Nachdem ich das letzte meiner 
Flugzeuge verloren hatte, 


spielte die Maschine allein wei- 
ter -und schrieb mir die Punkte 
gut, die sie erzielte. Ja, es fällt 
auf, daß bei der Entwicklung 
dieser Version gespart wurde 
und das kompetente Team, 
das den Vorgänger entwickelt 


‚hatte, nicht mehr seinen Ein- 


fluß geltend machte. 

Es wird deutlich, daß drei Pro- 
gramme mit demselben Na- 
men doch höchst unterschied- 
lich sein können. 


Günter Knesebeck 






Terra Nova - ein schnelles 
Weltraumspiel. 

Pin Point - es ähnelt Marble 
Madness. 

Panic Penguin - Pinguin wirft 
mit Eisblöcken. 

Minipedes - eine Variante von 
Centipede, dem Spielhallen- 
spiel. 


Version ACE 16k ACE64k ACE Il 
Speicherbedarf: 16 k 64 k 64k 
Level: 9 20 
max. Spielerzahl: 2 2 
. Ewige Besten:Liste: Nein Ja Nein 
Anzahl Leben: 3 20 
Start u. Landung: Nein Ja Nein 
Geteilter Bildschirm: Nein Nein Ja 
Kampfmodi: 3 2 
Bewertung: 2 4 












European Cup Finals - Fußball, 
wie er leibt und lebt. 

Thai Kendo - ein Spiel der 
Marke ”Schlag drauf und 
Schluss!”. 

Flight Path 737 - ein leider et- 
was langsamer Flugsimulator. 
Speedboad Race - mit dem 
Rennboot rast man übern See. 
Skramble -wer kennt dieses 
Spiel nicht? ; 

Atlantis - ein typisches Gerüst- 
spiel. 

So, dies waren alle. Teilweise 
sind die Programme nicht so 
gut. Insgesamt ist die Anschaf- 
fung aber lohnenswert, vor- 
ausgesetzt, man besitzt nicht 
schon eines oder mehrere die- 
ser Games. Der Preis beträgt 
29,95 DM. Lieferbar ist Power- 
pack nur auf Kassette. 

Zu beziehen sind die beiden 
Neuerscheinungen bei: 
Kingsoft GmbH 

Grüner Weg 29, 5100 Aachen 


Otti 
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Endlich geht der Wunsch in Er- 
füllung. Mit der Hilfe dieses 
kleinen Maschinenprogram- 
mes können Softwaresprites 
(Shapes) in einem rasenden 
Tempo über den Bildschirm 
bewegt werden. Zwar verfügt 
das C16 Basic selbst über 
einige Sprite-Routinen (GSH 
APE usw.), jedoch reicht die 
Geschwindigkeit nur in den sel- 
tensten Fällen für eine prakti- 
sche Anwendung aus. 


HIRES-SPRITE arbeitet wie die 
eingebauten Grafik-Befehle mit 
der HIRES-Grafikseite zusam- 
men. Sie können also nicht im 
Textmode dargestellt werden, 
wie es bei einigen anderen Er- 
weiterungen der Fall ist. 


Die Sprites besitzen eine kon- 
stante Größe von 16 mal 16 
Punkten und sind natürlich frei 
definierbar. Das eigentliche 
Maschinenprogramm belegt 
den Speicherbereich von 
$1000 bis $11B7 und nutzt 
somit die "Speicherlücke” von 
$ 1000 bis $ 17FF, die sich auf- 
grund der veränderten Spei- 
cherkonfiguration nach einem 
GRAPHIC-Befehl ergibt. Es 
geht. also praktisch kein 
Basic-Speicher verloren, da.der 
Basic-Start im Grafikmodus 
(zumindest bei den Rechnern 
mit mehr als 16k) ja erst bei 
$4000 liegt. Die verbleibende 
Lücke kann noch für die 
Spritedaten bzw. andere Ma- 
schinenprogramme genutzt 
werden. Die Sprites selbst ver- 
ändern dabei ausschließlich die 
sogenannte Bit-Map, nicht aber 
den Farb- und Luminanzspei- 
cher des Girafikbildes. Das 
heißt, man kann die Sprites 
auch im Mehrfarbenmodus 
verwenden! 


Eine weitere Besonderheit des 
Sprites ist die EXCLUSIV- 
ODER-Verknüpfung, mit der 
diese in den Speicher ”gepokt” 
werden. Dadurch ist es erstens 
möglich, das Sprite über vor- 
handene Grafiken zu bewegen, 
ohne diese dabei zu verändern. 
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Andererseits ist es so möglich, 
daß Sprite mit dem gleichen 
Befehl zu setzen und wieder zu 
löschen. 


Verwendung in Basic 


Will man Hires-Sprites in ei- 
gene Programme einbauen, so 
muß man das Programm 
"HIRES-SPRITE .MC” natür- 
lich erst einmal nachladen. 





Dies geschieht am besten mit 
der folgenden Zeile: 


1 GRAPHIC1,1:1F PEEK(4096) 
076 THEN LOAD”HIRES- 
SPRITE .MC” 8,1 


Benutzer der Datasette müs- 
sen natürlich statt der Geräte- 
adresse 8 eine 1 angeben. 
Wichtig ist weiterhin, daß diese 
Basic-Zeile immer am Anfang 
des Programmes steht. Sicher- 
lich ist es auch von Nutzen, die 
Adressen der drei Spriterouti- 
nen in Variablen abzulegen, 
um sie dann schneller aufrufen 
zu können. 


So eine Zeile könnte 
folgendermaßen aussehen: 


PROGRAMME EEE 


Schnelle SPRITES 


für Plus4 und C16/C11 6 +64k 


2 MS=4487:SS=4505:SB = 
4512 - 


.MS steht in dieser Zeile für 


”Muster setzen”, SS für 
”Sprite setzen” und SB für 
”Sprite bewegen”. Natürlich 
kann man auch andere Varia- 


blen verwenden! 


Die erwähnten Routinen bewir- 
ken dabei folgendes: 
legt 


SYS MS,Adr. 


Spritedaten-Adresse fest. Hier- 
durch wird dem Computer mit- 
geteilt, wo sich ein vorher de- 
finierter Sprite befindet. Wie 
schon erwähnt, eignet sich der 
Bereich von $11B8-$17FF 
ideal für diese Aufgabe. 


Mit SYS SS,X-Koord.,Y-Koord. 
wird der so definierte Sprite auf 
den Bildschirm gesetzt. Mit 
demselben Befehl kann man 
durch die EXCLUSIV-ODER- 
Verknüpfung einen Sprite set- 
zen bzw. wieder löschen. 


Der letzte Befehl SYS SB,X- 
Koord.,Y-Koord. bewegt einen 


Sprite von seiner aktuellen Po-: 


sition zu der über die Koordi- 
naten angegebenen. Die X- 


die. 


Koordinate muß dabei unbe- 
dingt in dem Bereich von 0 bis 
320, die Y-Koordinate von 0 bis 
200 liegen, egal welcher 
Grafik-Modus verwendet wird. 


Verwendung in Maschinen- 
sprache 


Die echten Profis wollen natür- 

lich die "SPRITES” auch von 

Maschinensprache aus nutzen. 

Auch dies ist möglich. Die Rou- 

tine "Muster setzen” liegt hier 

bei Adresse $ 1000, wobei die 

Zeropage-Bytes $D0/$D1 in 

LO/HI-Byte-Darsiellung die 

Adresse der Sprite-Daten ent- 

halten muß. Die X-Koordinate 

für die beiden anderen Routi- 

nen muß in den Speicherzellen 

$1009/$ 100A, ebenfalls in 

LO/HI, übergeben werden. Für 

die Y-Koordinate hingegen wird 

nur die Speicherstelle $ 100B 

verwendet. Hat man die Koor- 

dinaten dort abgelegt, so ruft 

man mit JSR $1003 die 

"SPRITE-Setzroutine” bzw. mit 

JSR $1006 die "”SPRITE- 

Bewegungsroutine” auf. Je- 
doch muß man beachten, daß 

sich die Speicherzellen für die 

Koordinaten während der Aus- 

führung verändern können. 

Außerdem werden 
Zeropage-Adresse $D0-$D7 
verwendet. Man sollte deshalb 
bei eigenen Maschinenrouti- 
nen auf diese Speicherstellen 
verzichten. 


Will man aufgrund der Länge 
eines Programms einmal das 
ROM ausschalten, so ist dies 
grundsätzlich möglich. Aller- 
dings muß man in diesem Fall 
die Tabellen der Zeilenan- 
fangsadressen bei $D802 und 
$D81B vom ROM ins RAM 
übertragen. Zudem tauchen 
diese Adressen nur jeweils 
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die 


BEE PROGRAMME 


einmal im Programm auf, so 
daß es nicht schwierig sein 
dürfte, diese auf andere Werte 
- zu setzen. 


Einfacher Spriteeditor 


Um SPRITES darstellen zu 
können, müssen diese natür- 
lich erst einmal entworfen wer- 
den. Und genau für diesen 
Zweck existiert das zweite Li- 
sting, nämlich ein SPRITE- 
Editor. Erst durch den Sprite- 
Editor ist es möglich, sich seine 
eigenen Sprites zu schaffen. 
Aufgrund der Kürze des Pro- 
grammes muß das Spritemu- 
ster direkt mit dem normalen 


R >1078 10 6A 4A 4A 

Teil 1 1080 OB 10 48 29 
>1088 68 4A 4A 4A 

> 3 >1098 AD BE 19 CD 

MC-LISTING MIT CHECKSUMMEN OVM1®8 |>1098 BO 13 A2 OF 
>10AB 23 18 3E 13 

>1000 4C 43 18 4C 5B 10 AC 65 ::A5'I>10A8. CE 10 19 18 
>1008 10 00 00 00 008 00 00 00 ::28:1>10B0 13 10 7E 23 
»1010 20 00 08 00 00 OB 00 OB ::20 I>10B8 CA 10 F4 EE 
>1018 08 08 02 OB BB 002 BB 08 ::28 I>»10C0 68 AE BC -10 
>1020 02 00 08 00 O8 O8 00 08 ::30 I>1ı0C8 28 BO 64 CO 
>1028 00 88 00 09 08 82 88 QD ::38 I>12D8 92 DB 6D OC 
>»1030 08 08 00 008 BD 00 00 00 ::40 I>10D8 908 79 ıB DE 
>1038 00 00 2B O0 08 00 08 OB ::48 |>1BEO DO 2A 06 DO 
>1040 08 08 08 AB ıF Bi DO 99 ::09 I>10E8 69 20 85 DI 
>1048 13 10 88 18 F8 AB OF AY ::AC I>10FO 38 85 D2 A5 
>1050 008 99 33.10 88 108 FA 8D ::Bi |>10F8 D3 18 A5 D2 
>1058 10 10 68 20 6C 190 28 98 ::14'1>1100 A5 D3 69 91 
>1968 18 28 Ci 18 68 28 Ci 18 ::AA:|>1108 AU 10 38 ED 
>1058 20 5B 10 60 AD 89 10 48 ::45'>1110 88 85 D6 84 
1078 29 07 8D BE 18 68 4E OA ::C2:|>1118 ED OD 19 8D 


Basic-Editor in die Zeilen 
5000-5015 eingegeben wer- 
den. Für einen gesetzten Punkt 
nimmt man den Stern ”*”, für 
eine Lücke verwendet man den 
Dezimalpunkt ”.”. Um das Mu- 
ster in den Speicher Ihres 
Computers zu bringen, gibt 
man einfach RUN ein. Nach- 
dem noch die gewünschte 
Startadresse eingegeben ist, 
werden die DATAs umgerech- 
net und in den Speicher 
”gepokt”. 


Das war’s! Um die Art der Ko- 
dierung braucht man sich also 
überhaupt keine Gedanken zu 
machen. 

Mit RUN 300 läßt sich der eben 


kreierte Sprite in Originalgröße 
betrachten. Möchte man ein 
weiteres Sprite definieren, so 
sorgt RUN 200 für ein "leeres 
Blatt”. Um Sprites später ver- 
wenden zu können, sollte man 
den entsprechenden Spei- 
cherbereich- vom Monitor aus 
abspeichern. Später genügt ein 
weiterer LOAD-Befehl, um die 
Spritedaten nachzuladen. 


Achtung, der Sprite-Editor lädt 
die Sprite-Routine nach. 


Es ist deshalb genau darauf zu 
achten, daß beim Abspeichern 
der MC-Routine der richtige Fi-. 
lenamen verwendet wird. 


8D @C 10 AD ::531>1120 28 ED OC 10 C9 04 90 02 ::9C 
07 8D OF 10 ::91 |>1128 A9 03 8D 11 10 DO 05 AC ::78 
8D @D 18 60 ::19|>1130 86 11 AE 12 10 AC OF 10 ::7C 
10 10 F® 28 ::4D|>1138 Bi D6 51 DO 91 DO C8°CO ::06 
1E 33 10 3E ::C8|>1140 88 DO F5 CA FO IF Bi D6 :: Fi 
10 CA 10 F&4 ::15|>1148 51 D2 91 D2 C8 CO 10 DO ::Al 
E3 A2 OF 5E ::AA|l>1150 F5 CA FO 11 98 29 07 CD ::85 
10 7E 33 10 ::22|>1158 OF 10 FO 09 Bi D6 51 D4 ::DC 
10 10 18 DO ::E6|>1160 91 D4 C8 DB EF A2 04 18 ::95 
AC @0D 10 E® ::@A|>1168 B5 DO 69 08 95 DO 90 02 ::F2 
19 BO 60 BY ::91|>1170 F6 DI CA CA 10 Fi 18 A5 ::65 
10 85 D® AY ::6F |>1178 D6 69 10 85 D6 90 02 E6 ::41 
38 E9 @OC 06 ::9D|>1180 D7 CE 11 10 DO AC 60 20 ::2F 
2A 06 DO 2A ::5C|>1188 91 94 28 EI 9D AG 14 A4 ::D7 
18 A5 DO 69 ::C2|>1190 15 86 DO 84 DI 20 45 10 ::6C 
DI 69 @1 85 ::@6|>1198 6@ 20 A7 11 20 5B 10 60 ::B4 
69 38 85 D4 ::E2|>11AQ 20 A7 11 20 65 10 60 A2 ::DB 
85 D5 AY9 13 ::69 |>11A8 00 20 Fa C3 A2 02 BD AD ::AA 
OF 10 BO ®1 ::B8|>11B0 02 9D 089 10 CA 10 F7 60 ::6B° 
D7 38 A9 19 ::2F |>11B8 32 30 38 2C 32 31 39 2C ::C2 
12 10 38 AQ ::1E| ENDE DES LISTINGS (OVM) 


bzw. 


Hinweise zum Abtippen! 


Da das Programm im unteren 
Speicherbereich liegt, kann der 
MC-Checksummer ab Adresse 
12680 abgelegt werden. Ab- 
gespeichert wird das Maschi- 
nenprogramm mit S”HIRES- 
SPRITE .MC”,08,1000,11B8 
bei Kassetten mit 
S”’HIRES-SPRITE .MC”,01, 
1000,11B8 


Beim zweiten Listing, dem 
Sprite-Editor, sollte man den 
Basic-Checksummer OV20 
verwenden. Und nun wün- 
schen wir viel Spaß bei der An- 
wendung dieses nützlichen 
Utilities. 


C-16 LISTING + CHECKSUMMEN (OC V1.0) 


180 G=PEEK (174) :REM GERAETEADRESSE 





<205> 
100 GRAPHIC1,1:GRAPHICO,1 <171> 
110 IFPEEK(4896)< >DEC ( "4C" ) THENLOAD"HIRES-SP 
RITE{ SPACE} .MC" ‚6,1 <133> 
120 INPUT"ADRESSE( SPACE} ($=HEX)" ;A$: IFLEFT$ ( 
34,13="8"THENAD-DEC(MIDS.CAS, 21) ELSERD-VAL(R 
; <65> 
130 IFAD=@THENEND <125> 
140 RESTORE500® : FORI=0T015: READA$ <161> 
150 B$=LEFT$ (A$,8) :GOSUB180 : POKEAD+I,B <73> 
160 B$=RIGHT$(A$,8) :GOSUB180:POKEAD+I+16,B <180> 
17@ NEXT: END <32> 
180 B=®: FORJ=7TOOSTEP-1: IFMID$ (B$,8-J,1)="*" 
THENB=-B+2°J <64> 
190 NEXT: RETURN <94> 
200 FORI-5000T05015 : PRINTUSING'##4##"; 1; :PRIN 
T"{SPACEIDATASPACH . oo ancaeeenen "NEXT: E 
<195> 


ND 
388 INPUT"WO{ SPACE} STEHT { SPACE}DER{ SPACE}SPR 
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ITE{ SPACE} ($=HEX) " ;A$ 





5 <208> 


318 MS=DEC ("1187") :SS=DEC ("1199") :SB=DEC ("11 


AB") 


320 IFLEFT$(A$,1)="$"THENAD=DEC (MID$ (A$,2)):_ 


ELSEAD=VAL(A$) 
325 GRAPHIC1,1 
330 SYSMS,AD:SYSSS,08,0 


335 FORI=0T0200:SYSSB,1,1/2:NEXT 
340 GETKEYA$:GRAPHICO:END 


“u 


50008 
5001 
59082 
5083 
59094 
5005 
5006 
5007 
5088 
59089 
5018 
5011 
5012 
5013 
5014 
5015 


DATA 
DATA 
DATA . 
DATA . 
DATA . 
DATA . 
DATA ... 
DATA ... 
DATA ... 
DATA . 


ENDE DES LISTINGS 


ern. 
.ere ne» 
or]... 
.orer 
0.0. 


DATA ..ccss0. 0 Berdie 


<29> 
<49> 
: <90> 
: <55> 
i <12> 
; <201> 
j <130> 
; <131> 
e <192> 
2 <233> 
5 <259> 
i <23> 
: <72> 
<69> 
<66> 
<63> 


= <124> 


: <125> 


C16-SA 5/88 


Routinen - Gewußt wie! 


für C16/116/Plus 4 





Häufig sind es gerade die 
kleine Programmroutinen, die 
einem noch bei der Arbeit feh- 
len und das Programmieren er- 
leichtern. An dieser Stelle brin- 
gen wir drei kurze Programme, 
die man gelegentlich ganz gut 
gebrauchen kann. Alle drei 
sind Basic-Loader, die nach 
dem Start mit RUN eine MC- 
Routine einlesen, eine klare 
Anleitung ausgeben und die 
jeweilige Startadresse, gege- 
benenfalls mit einem Demo- 
Befehl, anzeigen. 


Block Load. 

Der TEDMON ist ja bekanntlich 
nicht in der Lage, ein MC- 
Programm an eine: beliebige 
Adresse zu laden. Hier hilft un: 
sere Routine weiter, die genau 
dies ermöglicht. Der MC-Code 
liegt an Adresse 630 und 
braucht deshalb keinen 
Basic-Speicherplatz. Der Auf- 
ruf erfolgt mit: 
SYS1630,ADRESSE,FILENA 
ME,GERATEADRESSE. 

2.B. 
SYS1630,16000,”TEST”,8 


DEEK/DOKE. 

Die normalen PEEK- und 
POKE-Befehle können ja nur 
8-Bit-Zahlen verarbeiten. Will 
man damit z.B. eine Adresse in 
irgendwelche Speicherstellen 
schreiben, so sind zwei Befehle 
und einige Berechnungen not- 
wendig. Dies wird durch 
DEEK/DOKE anders. Hier wer- 
den 16-Bit-Zahlen direkt verar- 
beitet. Die Befehle lauten: _ 
DEEK: SYS1630, ADRESSE 
LOW,VARIABLE. 

DOKE: SYS1667, ADRESSE 
LOW,WERT. 


Super List. 
Diese Routine wandelt ein Li- 
sting beim Ausdruck so um, 


daß es.leichter überschaubar 


ist. Zeilen, in denen mehr als 
ein Befehl vorkommt, werden 
so ausgeben, daß für jeden Be- 
fehl einer Zeile eine neue 
Druckzeile erzeugt wird. Vor 
der Bearbeitung ‚mit dieser 
Routine solite das Programm 
aber abgespeichert worden 
sein. Hier erfolgt der Aufruf mit 
SYS1630. 


C-16 LISTING + CHECKSUMMEN (0C V1.0) 


10. REM SWR 


15 .REM * 

20 REM * BLOCK LOAD 

25 REM * 

930 REM * FUER 

35" REM * i 

40 REM * C 16/116 PLUS/4 
45 REM * 

:50 REM * COPYRIGHT 1988 
55 REM * 

60 REM * ECKHARD SCHULZ 
65 REM * 

780 REM * BRESLAUER STR. 9 
75 REM * 

80 REM * 2437 SCHOENWALDE 
85 REM * = 

98 -REM Wall 
100 


110 FOR ADRESSE = 1630 TO 1657 


120 READ BYTE$ 


C16-SA 5/88 


<85> 

<112> 
<172> 
12272 
<146> 
<132> 
<90> 

<142> 
<90> 

<152> 
<186> 
<162> 
<131> 
«1723 
<178> 
<182> 
<165> 
<158> 
sal> 

<15> 


= LE EEE ER KE HK 


PROGRAMME EEE 


130 POKE ADRESSE , DEC (BYTE$) 

140 SUMME = SUMME + DEC (BYTE$) 

150 NEXT ADRESSE 

160 IF SUMME <> 2829 THEN PRINT"{DOWN SPACE) 
ERROR" : END 

170 PRINT" {CLEAR DOWN SPACE} LADEN{ SPACE} VON { 
SPACE} SPEICHERBLOECKEN 
180 PRINT" {DOWN SPACE} AN{ SPACE}EINE { SPACE}BE 
STIMMTE { SPACE} ADRESSE 

190 PRINT" {DOWN SPACE} AUFRUF: 

200 PRINT" {DOWN SPACEYSYS{ SPACE} 1630 , ADRESSE 
‚PROGRAMMNAME, GERAET 

218 PRINT'"{DOWN SPACEYSYS{ SPACE} 1630,16000," 
CHR$ (34) "TEST'"CHR$ (34) ",8 : 

22@ PRINT ) 


2880’ para 20,DE,9D,A5,14,48,A5,15 

1010 DATA 48,28,91,94,A9,00,85,0A 

1020 DATA 20,6B,A8,68,A8,68,AA,A9 

1030 DATA 08,4C,00,A8,00,00,00,00 
ENDE DES LISTINGS 





























<14> 
£69> 
<102> 


<56> 
<84> 


<138> 
<66> 


231? 


<76> 
<1372 


<193> 
2883 


<64> 


<154> 


<210> 


C-16 LISTING + CHECKSUMMEN (OC V1.0) 


18 REM We 
15 REM 
20 REM 
25 REM 
30 REM 
35 REM 
40 REM 
45 REM 


* 
%“ 
” 
”“ 
%* 
“ 
%“ 
50 REM * 
%“ 
“ 
%* 
* 
* 
” 
%* 
”“ 


DEEK & DOKE 
FUER 
C 16/116 PLUS/4 


55 REM 
66 REM 
65 REM 
70 REM 
75 REM 
80 REM 
‚85 REM 
98 REM 
198 
ı110 FOR ADRESSE = 1630 TO 1697 

120 READ BYTE$ 

130 POKE ADRESSE , DEC (BYTE$) 

140 SUMME = SUMME + DEC (BYTE$) 

150 NEXT ADRESSE 

160 IF SUMME <> 7085 THEN PRINT"{DOWN SPACE} 
ERROR" :END 

170 PRINT"{ CLEAR DOWN SPACE}DEEK{ SPACEYUND{S 
PACE} DOKE{ SPACE} FUER { SPACE} DEN{ SPACE} C16/116 
{ SPACE2} PLUS/4 

180 PRINT" {DOWN2 SPACE}DEEK{ SPACE}={SPACE}SY 
S{ SPACE} 1630, ADRESSE { SPACE}LOW, VARIABLE 

190 PRINT"{DOWN SPACE} DOKE{SPACE}={SPACE}SYS 
{ SPACE) 1667 , ADRESSE{ SPACE} LOW, WERT 

200 PRINT" {DOWN2 SPACE}BEISPIEL: 

2108 PRINT"{DOWN SPACE}SYS{SPACE}1630,43,A 
220 PRINT" { SPACE}DER{ SPACE} VARIABLEN{ SPACE} ' 
A' { SPACEYWIRD( SPACE) DER SPACE} WERT { SPACE) DER 
230 PRINT" { SPACE} ADRESSEN ( SPACE}434{ SPACE}UND 
{ SPACE} 44 { SPACE} ZUGEWIESEN. 

240 PRINT" { SPACE}DAS{ SPACE} ENTSPRICHT.{ SPACE} 
DEM{ SPACE} BEFEHL: 

250 PRINT" {SPACE} A=PEEK (43) +PEEK (44) *256 

260 PRINT" {DOWN SPACE}SYS{ SPACE} 1667,43,600® 
278 PRINT" ( SPACE}HIER { SPACE}WIRD{ SPACE} IN{SP 
ACE}DIE({ SPACE} ADRESSEN { SPACE}43{ SPACE}UND{ SP 
ACE}44{ SPACE}DER 

2808 PRINT" { SPACE}WERT{ SPACE} 6000 { SPACE}GEPOK 
ED. 

290 PRINT" {SPACE} DAS{ SPACEYENTSPRICHT{ SPACE}. 
DEM{ SPACE} BEFEHL: 

300 PRINT" {SPACE} POKE{ SPACE}43,112:POKE44,17 
900 : 


%“ 

* 

* 

“ 

%* 

*“ 

%* 
(C) 1988 BY  * & 

> %* 

ECKHARD SCHULZ * 

“ 

BRESLAUER STR. 9 * 

. * 

2437 SCHOENWALDE * 

* 

%* 


WERK AKTTT INN UU  NN 










































































<85> 

<112> 
<192> 
<122> 
<146> 
<132> 
<90> 

<142> 
<50> 

<152> 
<186> 
<162> 
S131> 
<172> 
<178> 
<182> 
<165> 
<158> 
<109> 
<15> 

<14> 

<£69> 

<102> 


<39> 


<248> 
<245> 
<254> 
<229> 
<196> 
<203> 
<29> 

<117> 
<1@1> 
<97> 

<99> 

<160> 
<168> 


<202> 
<193> 
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1000 DATA 20,99,06,A2,00,A1,14,85 <77>2 165 REM * * <162> 
1018- DATA 63,E6,14,A1,14,85,62,A2 <54> 78 REM * BRESLAUER STR. 9 * <131> 
1920 DATA 90,38,20,CE,A2,20,91,94 <122>1|75 REM * * <172> 
19038 DATA 2@0,A5,96,85,49,84,4A,20 <44> 80 REM * 2437 SCHOENWALDE * <178> 
10408 DATA 1B,93,4C,55,A2,20,99,06 <31> .|85 REM * % <182> 
10580 DATA 84,71,85,72,20,99,06,A2 - <232? | 90 REM Wesen <165> 
1060 DATA 00,98,81,71,E6,71,A5,15 <163> | 99 . <157> 
1070 DATA 81,71,60,20,91,94,20,14 <232> | 188 FOR ADRESSE = 1638 TO 1709 «2543 
1080 DATA 93,4C,E4,9D,00,00,00,00 <35> |110 READ BYTE$ <5> 

ENDE DES LISTINGS 120 POKE ADRESSE . DEC (BYTE$) <4> 
1306 S = S + DEC (BYTE$) €&147%> 
ER 140 NEXT ADRESSE <92> 
BPERWERSILRTe 150 IF S. <> 8910 THEN PRINT'"{DOWN SPACE}ERRO 
: R":END <233> 
160 PRINT "{DOWN SPACE}AUFRUF: { SPACE}SYS{ SPA 
C-16 LISTING + CHECKSUMMEN (OC V1.0) CE}1639 <44> 
999 : <36> 

BE TOSREME RENNEN ERINNERN <85> 11000 DATA A9,69,8D,06,03,A9,06,8D <229> 
15 REM * x <112> | 1010 DATA 07,03,60,10,03,4C,70,8B <57> 
20 REM * SUPER LIST * <115> | 10208 DATA C9,3A,F0,03,4C,4F,8B,A9 <78> 
25 REM * = <122> | 1030 DATA.0D,20,D2,FF,98,48,A0,02 <113> 
30 REM * FUER “ <146> | 1040 DATA B1,5F,AA,C8,B1,5F,85,62 <> 
35 REM * “ <132> | 1050 DATA 86,63,A2,90,38,20,CE,A2 <68> 
48 REM * C 16/116 PLUS/4 * <98> | 1060 DATA 20,71,A4,A2,00,BD,00,01 <173> 
45 REM * “ <142> | 1070 DATA F0,03,E8,D0,F8,A9,20,20 <40> 
50 REM * (€) 1988 BY: * <20> | 1980 DATA D2,FF,CA,D®,FA,68,A8,A9 <20> 
55 REM * “ <152> 11096 DATA .20,4C,4F,8B,00,00,00,0% <13> 
60 REM * ECKHARD SCHULZ * <186> ENDE DES LISTINGS 


Der Screen-Compiler 


= für C16/116/Plus 4 mit Floppy 





Hier ist ein optimales Hilfspro- 
gramm für alle, die selbst pro- 
grammieren und einen Vor- 
spann oder ein Titelbild für ei- 
gene Programme benötigen. 
Der Screen-Compiler ist in der 
Lage, eine Grafik, die auf dem 
Textbildschirm erstellt wurde, 
in Print-Zeilen umzusetzen. 
Dabei werden auch Steuerzei- 
chen übernommen. 


Die Bedienung ist dabei sehr 


einfach. Mit dem Cursor kön- 
nen die benötigten Zeichen auf 


dem Bildschirm verteilt werden. 


Dabei wird der normale Editor, 
mit dem auch die Basic- 
Programm eingetippt werden, 
verwendet. Ist das Bild dann 
fertig, so braucht nur die Taste 
"HELP” gedrückt zu werden, 
zwei Sekunden später sind die 
Zeilen erstellt. 


Nun muß man noch ein paar 


Korrekturen von : Hand: vor- 
nehmen. So wird z.B. die 
SYS-Zeile, die den Screen- 
Compiler startet, mit über- 
nommen und muß daher ge- 
löscht werden. Der Compiler 
erzeugt ein ganz normales 
Basic-Programm, das an- 
schließend abgespeichert wer- 
den kann. Aber Vorsicht! Ein 
eventuell noch in dem Speicher 
befindliches Basic-Programm 
wird durch den Aufruf des 


Compilers gelöscht! 

Zur Eingabe: Der Screen- 
Compiler besteht aus zwei Tei- 
len, einem Basic- und einem 
MC-Programm. Den Basic-Teil 
eintippen und unter dem Na- 
men ”Screen-Compiler” ' ab- 
speichern. Zur Eingabe des 
MC-Teils wird der MC-Checker 
verwendet, den Sie bitte an 
Adresse 4097 legen. Abge- 
speichert wird mit: 
S”SCO.ASS.” ,8,3D00,3FFF 


Teil 1 








18 PRINT"{SU SC7 SI SPACE2 CD RVSON CI RVSOF 
E CB CD RUSON CI RVSOFF CB RVSON CK CI RVSOF 


F CB RVSON CK CIZ CK CI2 CK RVSOFF CB RVSON 




















CK SPACE2 SU SC7 SI}" <112>| 

C-16 LISTING + CHECKSUMMEN (OC V1.0) 19 PRINT" {BLUE}bPROGRAMb{SPACE2 CC CI CF RVS 
ON CK RVSOFF SPACE2 RVSON CK RVSOFF CI RUSON | 

5 COLOR4,1:COLOR®, 1: PRINTCHR$ (27) '"M" : <123> | CB CK RVSOFF CI SPACE RVSON CK RVSOFF CI SP j 
10 PRINT"(CLEAR SPACE27 RED RVSON SO RVSÖFF} <183> | ACE RVSON CK3 RVSOFF SPACEZYDDESIGN{SPACEID" <46> | 
11 PRINT"(SPACE1@ YELLOW RVSON CG2 RVSOFF SP 28 PRINT"{D.BLUE SPACE}BY{SPACE}OLLY{SPACE3 
 ACE15 RED RVSON SPACE RVSOFF CG} <152> | CD SPACE RVSON CK2 RUSOFF SPACE CD RVSON CK 
12 PRINT"(SPACES YELLOW RVSON CG CF CG4 RVSO RVSOFF CC CF RVSON CK RVSOFF SPACE2 RVSON CK | 
EF SPACE RED RVSON CG CF CG SPACE CG).{CG CP RVSOFF SPACE2 RVSON CK3 RVSOFF SPACE3}BY{SP | 
C6}.1CG SPACE CG2 CP RVSOFF SPACE YELLOW RV ACE}Y ARNO ( SPACE} " <15> | 
SON 50 RVSOFF} <ı60> | 21 PRINT"{SJ SC7 SK SPACE3 RVSON CI RVSOFF C 
13 PRINT" (BLACK}RUN59:{SPACE2 YELLOW RVSON C V SPACE RVSON CI RVSOFF CV CC SPACE CC2 RVSO 
G CV CG3 SPACE RVSOFF SPACE RED RVSON CG SPA N CI2 RVSOFF CC RVSON CI2 RVSOEF CC SPACE RV 
CE CG RVSOFF SPACE RUSON CG CY 50 SPACE CG C SON CI SPACE3 SJ SC7 SKY" <1243 
Y CG3 SO SPACE RVSOFF SPACE YELLOW RVSON 50 22 PRINT <175> 
RVSOFF} <114> | 23 PRINT"{SPACE9 YELLOW CD RVSON CI RVSOFF € i 
14 PRINT"{SPACE12 RVSON SO SPACE RVSOEF SPAC: B CD RVSON CI RVSOFF CB RVSON CK RVSOFF CF R 1 
E RED RVSON CG RVSOFF} <99> | VSON CV CK CI RVSOFF CB CC RVSON CD CK RVSOF i 
15 PRINT: PRINT: PRINT <204> | FE SPACE RVSON CK CI2 CK CI RVSOFF CB} <19> | 
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24 PRINT"{SPACE9 YL.GRN RVSON CK RVSOFF SPAC 




















E2 RVSON CK RVSOFF SPACE RVSON CK2 RVSOFF CC cQ CM < 244) 
RVSON CK2 RVSOFF CI RVSON CB RVSOFF SPACE C 31 PRINT"{SPACEB CQ S+ CR21 S5+ CW <126) 
K RVSON CK RVSOFF SPACE RVSON CK RVSOFF CI. S 32 PRINT"{SPACES CZ CE23 CK) <132) 
BPACE RVSON CK RVSOFF CI RVSON CB RVSOFF} <37> | 33 KEY8, "SYS16146::"+CHR$ (13) <247) 
25 PRINT"{SPACE9 GREEN RVSON CK RVSOFF SPACE 40 CHAR,®, 23," BLACK}LOAD"+CHR$ (34) +"SCO.ASS 
CD RVSON CK RVSOFF SPACE RVSON CK2 RVSOFF S ."+CHR$ (34) +" ,8,1" <93> 
PACE RVSON CK2 RVSOFF SPACE3 CK RVSON CK RVS 41 CHAR,®,21,"" <55> 
OFF SPACE RVSON CK RVSOFF SPACE2 RVSON CK RV 42 POKE239,2:POKE1319,13:POKE1320,13 <14> 
SOFF CC CF} <26> | 43 END <171> 
26 PRINT"(SPACE1@ RVSON CI RVSOFF: CV SPACE R 50 CHAR, 2;,24,"{L. BLU} 'SCO.ASS.'{SPACEYIS{SPA 
SON CI RVSOFF CV CC SPACE CC2 SPACE2 CC RVS CE}LOADED. {SPACE} PRESS{SPACE}ANY{SPACEIKEY." «2243 
ON CI RVSOFF CC RVSON CI RVSOFF CC RVSON CI2 51 GETKEYA$ <25> 
RVSOFF CC SPACE CC} <171> | 52. PRINT"{BLACK CLEAR} "+CHR$(27)"L" - <95> 
27 PRINT <180> | 53 COLOR®,2,7:COLOR4,15,6 <15> 
28 PRINT"(SPACES RED CA CR23 CS) <53> | 54 NEW <216> 
29 PRINT"{SPACES CQ S+ CE21 5+ CM <153> 
30. PRINT" ( .CO-CW YELLOW}PRESS{ SPACE} ' { ENDE DES LISTINGS 
Teil 2 ....»3DFO 20 O1 3D 20 36 3F 60 EA ::FE »3F00 20 DI 3D 20 O1 3D 28 BI ::F3 
; 322 30F8 EA EA EA EA EA EA EA EA ::1D >3F08: 3D AD 23 3E 8D 19 FF 4C ::EF 
MC-LISTING MIT CHECKSUMMEN DVMIQ >3E00 A9 BI 85 2B A9 10 85 2C ::D4 >»3F10 00 3E 20 5A 3F A9 08 8D ::2C 
>3E08 A9 DI AB 91 2B 20 18 88 ::AC >»3F18 00 3D 20 01 3D 20 48 3E ::QE 
»3000 00 AD 00 3D AB 00 91 DB ::22 >3E10 20 4B 88 28 93 BA 4C 03 ::63 »3F20 20 58 3E 20 63 3F 20 97 ::6A 
»3D08 E6 DO A5 DO DO 92 E6 DI ::E8 >»3E18 87 00 00 00 OD 00 OD @D ::DD >3F28 3E 20 BB 3E AD 45 3E C9 ::07 
>3D10 20 36 3F 60 EA EA EA EA ::DA >3E20 13 46 O1 EE AD 19 FF 8D ::10 »3F30 19 30 ED 20 48 3F AE 22 ::E3 
>3D18 90 85 IC 9F SC IE IF 9E ::48 »3E28 23 3E A9 00 85 D® AY 10 ::98 >3F38 3E BD 20 3E 8D 19 FF 8A ::27 
>3D20 81 95 96 97 98 99 9A 9B ::C2 >3E30 85 DI A9 00 85 DA 85 DB ::C® >3F40 49 O1 8D 22 3E 60 EA EA ::25 
>3D28 00 82 84 OB 10 28 AD 2C ::20 >3E38 A2 OC AD 08 86 DD 85 DC ::7F >3F48 38 D8 A5 DO E9 DI 85 DO ::54 
>3D30 3D C9 80 30 16 AD 28 30 ::F8 >3E40 84 DF 85 DE 60 19 23 28 ::72 >3F50 A5 DI E9 00 85 DI AC FB :: FC 
»3D38 DO 27 AQ @I 8D 28 3D AD ::56 : | >3E48 A9 00 8D 45 3E 8D 47 3E ::4F >3F58 3E EA A9 10 8D 2B 3D 4C ::B2 
>3D40 29 3D 80 00 3D 20 BI 3D ::A7 >»3E50 A9 OA 8D 46 3E 60 EA EA ::36 >3F60 24 3E EA A9 00 8D 88 3D ::8F 
>3D48 4C 35 3D AD 28 3D FO 11 ::F4 »3E58 A5 DO 85 DA A5 DI 85 DB ::6C >3F68 8D 28 3D 4C 6E 3E 08 0B ::05 
>3050 A9 08 8D 28 3D AD 2A 3D ::CA >3E60 AI 00 8D 00 3D 20 DI 3D ::CE »3F70 20 20 20 20 20 20 20 20 ::2F 
>3D58 8D 08 30 20 BI 3D 4C 4B ::38 >3E68 20 DI 3D 60 EA EA AD 46 ::FB >3F78 AA 53 43 52 45 45 4E AA ::81 
>3D60 3D AD 2C 3D 29 OF CD 28 ::C6 >3E70 3E 8D 00 3D 20 DI 3D A9 ::93 >3F80 43 UF 4D 50 49 4C 45 52 ::6F 
>3D68 3D FO 14 AA AD 2D 3D CI ::08 »3E78 00 8D 00 3D 20 Bi 3D AY ::5D >3F88 28 43 29 20 31 39 38 37 ::FB 
>3070 20 FO @C BD 18 3D BE 28 ::E5 >3E80 99 8D 00 3D 20 ®i 3D A9 ::FE >3F90 42 59 20 4F 4C 4C 59 20 ::12 
>3D78 3D 8D 08 3D 20 91 3D 20 ::51 >3E88 22 8D 00 3D 20 DI 3D A9 ::BF >3F98 20 20 20 20 20 20 20 208 ::57 
»3D80 36 3F 60 EA EA EA EA EA ::FD >3E90 00:80 47 3E 60 EA EA AD ::DF >3FA® 2D 20 2D 2D 2D 2D 2D 2D ::33 
>3D88 08 12 92 @® AD 8B 3D C9 ::35 >3E98 47 3E AB BI DE 8D 2D 3D ::12 >»3FAB 2D 2D 2D 2D 2D 2D 2D 2D ::3B 
>3D90 80 30 16 AD 88 3D DB 27 ::Al >3EA® 8D 8B 30 Bi DE 8D 2C 3D ::BC »3FB0 2D 2D 2D 2D 2D 2D 2D 2D ::43 
>3D98 A9 @1 8D 88 3D AD 89 3D ::2D >3EA8 20 2E 3D 20 8C 3D EE 47 ::7D »3FB8 2D 2D 2D 2D 2D 2D 2D 2D ::4B 
>3DA® 8D 08 3D 20 BI 3D 4C 93 ::C® >3EB0 3E AD 47 3E C9 28 D® DF ::D8 >3FC® 2D 2D 2D 2D 2D 2D 2D 2D ::53 
»3DA8 3D AD 88 3D F@ 11 A9 0® ::BD >3EB8 60 EA EA AY 22 8D 00 3D ::6C >3FC8 2D 2D 2D 2D 2D 2D 2D 2D ::5B 
>3DB® BD 88 3D AD BA 3D 8D 08 ::F® >3EC0 20 O1 3D A9 00 8D 00 3D ::Bi >3FD® 2D 2D 2D 2D 2D 2D 2D 2D ::65. 
>3DB8 3D 20 @1 3D 4C AY 3D DB ::46 >3EC8 20 DI 3D AD 00 A5 DO 91 ::75 >3FD8 2D 2D 2D 2D 2D 2D 2D 2D ::6B 
>3DC® AD 8B 3D 29 7F 18 C9 20 ::A5 >3ED0 DA AB DI A5 DI 91 DA EE ::A® >3FE® 2D 2D 2D 2D 2D 2D 2D 2D ::73 
»3DC8 10 08 69 4® 8D 00 3D AC ::2C >3ED8 45 3E EE 46 3E D8 18. A5 ::CF >3FE8 2D 2D 2D 2D 2D 2D 2D 2D ::7B 
>3DDO FO 3D C9 49 10 06 8D 08 ::21 >3EE® DC 69 28 85. DC A5 DD 69 ::D5 >3FF® 2D 2D 2D 2D 2D 2D 2D 2D ::85 
>3DD8 3D 4C F® 3D C9 60 10 08 ::8B >3EE8 00 85 DD 18 A5 DE 69 28 ::B3 >3FF8 2D 2D 2D 2D 2D 2D 2D FF ::ıB 
>3DEO 69 20 8D 08 3D 4C FO 3D ::DE >3EF® 85 DE A5 DF 69 08 85 DF ::82 
>3DE8 69 3F 8D @@ 3D EA EA EA ::16 >3EF8 60 EA EA A9 00 8D 00 3D ::02 ENDE DES LISTINGS 


{ 


PROGRAMME Eu 


RVSONYHELP ( RVSOFF} ' (SPACE}TO1 SPACE)START{. RED 
C 


| Sie Fragen 
zu unseren Listings? 


Unsere Programmierer helfen Ihnen gerne weiter! Die HOTLINE ist unser Leserservice. 
Aber bitte wählen Sie nur die angegebene Nummer, und rufen Sie nur in der angegebenen Zeit an. 
Sie erleichtern damit den anderen Abteilungen des Verlages die Arbeit. Vielen Dank! 


HOTLINE O 56 51 - 3 00 13 


montags und freitags von 14 - 16 Uhr 
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BEE PROGRAMME 





In Compute mit 7/88 wurde der 
Notruf des Lesers Andreas Ko- 
falck veröffentlicht, der irrtüm- 
lich eine Diskette, auf der wich- 
tige Daten enthalten waren, 
ohne ID formatierte. , Dieses 
Programm hier, ist nun die Lö- 
sung für sein Problem. Wir wis- 
sen inzwischen, daß sich auch 
andere Leser für die Lösung 
interessieren und bereits ähn- 
liche Probleme hatten. 


Disk-Restoration stellt alle Files 
ab dem neunten Directory- 
Eintrag mit 100%» Sicherheit 
wieder her. Die restlichen Files 
können mit einem speziellen 
Suchalgorithmus'gerettet wer- 
den. Dies funktioniert aber nur 
dann, wenn zwischenzeitlich 
nichts auf die Disk geschrieben 
wurde. Nach dem Start des 
Programms sollte eine Dis- 
kette, dieohne Angabe einer ID 
formatiert wurde, eingelegt 
werden. Legen Sie aus Verse- 
hen eine Diskette ein, die 
‘Directory-Einträge enthält, so 
wird dies vom Programm er- 
kannt und gemeldet. Dann 
stellt das Programm automa- 
tisch das Directory ab Block 


18/4 wieder her und liest die. 


Verkettungs-Struktur der Dis- 
kette. Danach werden die re- 
staurierten Files angezeigt, so- 
fern es welche gibt. 


Anhand dieser Liste können 
Sie gut erkennen, ob, und 
wenn ja, welche Files noch feh- 
len. Dies können aber höch- 
stens acht Files sein. Die noch 
fehlenden Files werden dann 
als Blockkette gesucht, was ein 
wenig Fleißarbeit erfordert. So- 
bald eine Blockkette gefunden 
wird, erfahren Sie die Länge 
der Kette in Bytes und Blocks 
sowie die Ladeadresse, die sie 
als PRG-File besitzt. Jetzt wäre 
es günstig, wenn Sie sich erin- 
nern könnten, welche Files 
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für C16/116/Plus 4 mit Floppy 


noch fehlen und um welchen 
Datei-Typ es sich dabei han- 
delt. Diese Werte müssen Sie 


nämlich selbst eingeben. 


Weil auch Blockketten vor- 
kommen können, die keine gül- 
tigen Files darstellen, fragt das 
Programm nun, ob die jewei- 
lige Kette auch als File einge- 
tragen werden soll. Im Zwei- 
felsfall sollten Sie einfach ra- 
ten. Dann werden Sie gefragt, 
welchen Filetyp die Kette erhal- 
ten soll, wobei es ebenfalls 
günstig ist, wenn Sie die ur- 
sprünglichen Angaben noch 
wissen. 


Relative Files können übrigens 
nicht eingetragen werden. Dies 
geht höchstens mit einem 
Disketten-Monitor. Zu Abschluß 
folgt die Frage nach dem File- 
Namen. Der kann später aber 
noch mit RENAME geändert 
werden. Ist dies alles gesche- 
hen, so wird nach weiteren Ket- 
ten gesucht. Sind keine weite- 
ren Ketten vorhanden, so wird 
nun die BAM erzeugt und ab- 
gespeichert. Somit sind die Fi- 
les wieder ganz normal zu be- 
arbeiten. 


Stellen Sie nun bei der Über- 
prüfung des Ergebnisses fest, 
daß einige Files noch immer 
fehlen und dafür ungültige 
Blockketten eingetragen wur- 
den, so ist dies kein Beinbruch. 
Der Vorgang kann nämlich be- 
liebig oft wiederholt werden. 
Einfach die Diskette nochmals 
ohne ID formatieren und Disk- 
Restoration wieder starten. Bei 
der Wiederholung werden Sie 
schon besser wissen, was sie 
brauchen und was nicht. 


Bei der Eingabe und Bedie- 
nung des Programms dürfte es 
kaum Schwierigkeiten geben, 
handelt es sich doch um ein 


einteiliges Basic-Programm mit 
guter Dokumentation und einer 
hervorragenden Benutzer- 
führung. 


Nun noch eine Anmerkung der 
Redaktion. - Wir danken allen 


Lesern recht herzlich für die 
zahlreichen Zusendungen, die 


‚uns zu dem Brief von Herrn Ko- 


falck erreicht haben, zeigen sie 
doch, daß die Leser aktiv an 
der Zeitschrift mitwirken kön- 
nen und auch wollen. Spitze! 
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REM 
REM 
REM 
REM 
REM 


100 PRINTCHR$ (147) : PRINT: PRINT"D( SPACE} {SPA 
CEYS{ SPACEYK{ SPACE2}-( SPACE2}R( SPACE) E{ SPACE 
}S{ SPACE}T{ SPACE}O( SPACE}R{SPACEYA( SPACE}T{S 
PACE}1{SPACE}O{ SPACEYN" 

110 PRINT: PRINT"PROGRAMMIERT ( SPACE} VON{ SPACE 
}R. (SPACE}HABLE{ SPACE} IM{ SPACE) JUNI{ SPACE} 19 
88" 

120 PRINT"FUER{ SPACE} VC2® (RAM!) ‚C116/16/64{8 
PACE}ODER{ SPACE} PLUS/4" 

130 PRINT"MIT{ SPACE} 1541 { SPACE}ODER{ SPACE}KO 
MPATIBLER{ SPACE} FLOPPY." 

140 PRINT: PRINT"DIESES{ SPACE}PROGRAMM{ SPACE} 
STELLT{ SPACE} DEN{ SPACE} INHALT{ SPACE} VON" 

150 PRINT"OHNE( SPACE} ANGABE{ SPACE} EINER{SPAC 
E} ID{ SPACE} FORMATIERTEN { SPACE}DISKS" 

155 PRINT"WIEDER{SPACE}HER." 

160 PRINT"ALLERDINGS{ SPACE}NUR{ SPACE}DANN, (5 
PACEYWENN{ SPACE} INZWISCHEN" 

165 PRINT"KEINE{SPACE)DATEN{ SPACE} AUF { SPACE} 
DER { SPACE} DISK SPACE} GEAENDERT" : PRINT""WURDEN 


LISTING + CHECKSUMMEN (OC V1.0) 


DISK-RESTORATION 
EIN PROGRAMM VON 
RICHARD HABLE 
TRINDORF 39 
A-4064 OFTERING 


u—onw» 














200 REM *** INITIALISIEREN 

210 DEF FNSA(TR)=16-(TR<31)-(TR<25)-2* (TR<18 
) 

212 DEF FNOK(X)=TR<36ANDTR>GANDSE>=OANDSE<=F 
NSA (TR) 

213 DEF FNEX(TR)=TR-(TR<18)-(TR=18) *17+(TR>1 
9)+(TR=19)*18 

214 DIMBB%(35,20) ‚TR%(35,20) ‚SE%(35,20) 

215 FORI=@T04:READFT$(I) :NEXT:DATA DEL,SEQ,P 
RG,USR,REL 

217 CO$=CHR$ (0) 

230 PRINT: PRINT: PRINT"BITTE{SPACE}LEGEN{ SPAC 
EISIE( SPACE} JETZT { SPACE} SO{ SPACEYEINE( SPACE} 
DISK{ SPACE}EIN" 

240 PRINT"UND{ SPACE}DRUECKEN4 SPACE}SIE{ SPACE 
}DANN { SPACE} DIE( SPACE} LEERTASTE" 

242 GETA$: IFAS< >" "THEN242 

244- GETA$: IFA$< >CHR$ (32) THEN244 

250 OPEN15,8,15, "1" :GOSUB9008 

260 OPEN2,8,2,"*":INPUT#15,E1,E2$,E3$,E4$: IF 
E1=62THENCLOSE2 :G0OT0308 

270 IFEITHEN9020 
280 CLOSE2:PRINT:PRINT"DIESE{ SPACE}DISK{SPAC 
E)ENTHAELT {SPACE} ABER{ SPACE} FILES! " : END 

3080 PRINT: PRINT: PRINT'"'DIRECTORY ( SPACE} AB{ SPA 
CE}BLOCK{ SPACE} 18/44 SPACE}WIRD { SPACE}WIEDERH 
ER-" :PRINT"GESTELLT." 

305 REM *** BLOCK 18/1 AUF NACHFOLGER ZEIGEN 
318 OPEN5,8,5, "+" :GOSUB990@ 

320 TR=18:5E=4:G0SUB2000 :GOSUB3900 : NE=A< >180 
RB< >7 

325 SE=1:G0SUB2008 :PRINT#5,CHR$(18+18*NE) CHR 
$(4-251*NE) ; 

326 PRINT#15,"U2";5;0;18;1:G0SUB908 





<228> 
<164> 
<98> 
<19> 
<52> 
<64> 


<123> 


<127> 
<230> 
<162> 
<159> 


<179> 
<246> 


<131> 
<208> 
2372 
<68> 
<59> 


<148> 
$45> 


<5> 
<27> 
$212> 
<161> 
977 
<36> 
<147> 


<105> 
<110> 


<10> 
<240> 
<71> 
<0> 
<£63> 


<95> 


<217> 
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488 PRINT: PRINT"DIE{ SPACE} VERKETTUNGSSTRUKTU 

R{ SPACE} DER{ SPACE} DISKETTE" 

418 PRINT"WIRD{SPACE}GELESEN. {SPACE} (DAUERT{ 

SPACE)CA. {SPACE} 2.51 SPACE}MINUTEN) " 

415 REM *** VON ALLEN BLOCKS BYTE ®/1 LESEN 

UND AUF FALSCH TESTEN 

420 FORT=1T035: H=FNSA(T) :PRINT#15, "UL (SPACE) 

5{ SPACE} {SPACE} " ;T;®; : FORS=®TOH : GOSUB900® 

430 GET#5,A$,B$: IFSCHTHENPRINT#15, "U1 {SPACE} 

5{ SPACE} @4 SPACE} ";T;S+1; 

4490 TR=ASC (A$+C0$) :SE=ASC (B$+CO$) 

450 TR%(T,S)=TR:SEX(T,S)=SE: BB&(T, S) =NOTFNOK 

(1) AND (SE=0ORTR< >08) :NEXT: NEXT 

460 BB%(18,0)=-1:BB%(18,1)=1 

490 IFNETHEN708:REM NUR 18/4 

500 PRINT: PRINT"DIRECTORY-EINTRAEGE{SPACE)AB 

{ SPACE} BLOCK { SPACE} 18/4" : PRINT"WERDEN( SPACE} 

GELESEN. " : PRINT 

505 REM *** EINZELNE FILENAMEN AUSLESEN 

5180 TR=18:5E=4 

520 BB%(TR,SE)=1 :G0SUB2000 :G0SUB3900: TR=A:SE 

-B 

530 FORBP=0T07 :PRINT#15, "B-P{ SPACEIS{ SPACE} " 

;BP*32+2; :GOSUB3500 :TF=B: IF (TFAND7) -OTHEN67® 

540 PRINT#15, "B-P{SPACE}5{ SPACE} " ;BP*32+39; : 

GOSUB3800 : PRINTRIGHT$ ('' ({ SPACE} "+STR$ (B*256+A 

)+"(SPACE}" ‚4); 

550 PRINT#15, "B-P{ SPACE)S{ SPACE)"; BP*32+5; 

555 PRINTCHR$ (34) ; :FORI=1T016:GET#5, A$: IFA$< 

>CHR$ (160) THENPRINTAS$ ; :NEXT 

557 PRINTCHR$ (34) TAB(22) ;CHR$ (32-10* (TF<128) 

) ;FT$ (TFAND7) ;CHR$ (60* (TFAND64) /64) 

560 IFTF<128THEN678 

570 REM *** BLOCKVERKETTUNG VERFOLGEN (DATEN 

BLOCKS & SIDE-SECTORS) 

575 PRINT#15, "B-P{ SPACE}S{ SPACE) " ;BP*32+3-18 

*( (TFAND7) =4) :G0SUB3900 :H1=TR:H2=SE: TR=A : SE= 

B 

577 IFNOTFNOK (1) THEN66® 

578 FORI=®TO1STEP® : IFTR=-OTHEN669 

580 IFBB%(TR,SE)=®THENBB% (TR, SE) =1:H=TR:TR=T 

R%(TR,SE) :SE=SE% (H, SE) :NEXT 

598 PRINT"FEHLER{ SPACE} IN{ SPACE)}DER{ SPACE)BL 

OCKVERKETTUNG! " 

660 TR=H1:SE=H2 : IF(TFAND7) =4THENTF=0 :60T0575 

678 NEXTBP \ 

680 IFFNOK(1)THEN528 

700 REM *** 8 MAL: X/@ SUCHEN UND VERFOLGEN, 

DANN FRAGEN UND EVTL. SPEICHERN 

718 PRINT: PRINT"BLOCKKETTEN{ SPACE}WERDEN{ SPA 

CE}YGESUCHT, { SPACE}YMAXIMAL{ SPACE}B" 

720 PRINT'"DAVON{SPACE}KOENNEN { SPACE} ALS{ SPAC 

EYFILES{ SPACE} EINGETRAGEN" :PRINT"WERDEN. " 

725 KA=0:BP=® 

730 FORT=1T035 : FORS=O0TOFNSA (T) : IFBB%(T,S)ORT 

R%(T,S) THENNEXT :NEXT :GOT0908 

735 Hi=T:H2=S:BA=1 

748 BB%(H1,H2)=-1:TR=H1: FORHT=1T035 

745 FORSE=®TOFNSA (TR) : IFSE% (TR, SE)< >H2THENNE 

XT: TR=FNEX (TR) :NEXTHT :GOT0779 

758 IFTR%(TR,SE)< >HATHENNEXT : TR=FNEX (TR) :NEX 

THT::GOT0779 

768 H1-TR:H2=SE: BA=BA+1 :G0T0740 

778 KA=KA+1 : TR=H1:SE=H2 : YA= (BA-1) *254+3E% (T, 

5)-1:609UB2000 :G0OSUB3000 :GOSUB3990 

775 PRINT: PRINT'"BEI{ SPACE} BLOCK"STR$(H1)"/"M 

ID$ (STR$ (H2) ,2) "{ SPACE} BEGINNT { SPACEYEINE" 

780 PRINTMID$ (STR$ (YA) ‚2) "(SPACE}BYTES( SPACE 

}("MID$ (STR$ (BA) ‚2) "( SPACE} BLOCKS) { SPACE}LAN 

GE{ SPACEYKETTE." 

798 PRINT'"WENN{SPACE}DIESE({SPACE}KETTE{ SPACE 

}EIN(SPACE}PRG-FILE{ SPACE) IST," 

800 PRINT"DANN{ SPACE} IST" A+B*256"DIE{SPACE}IL 

ADEADRESSE. " 

803 IFBP<8THEN81® 

805. PRINT'"DIE{ SPACE}KETTE{ SPACE}KANN{ SPACE}N 
. ICHT{ SPACE}MEHR{ SPACE} EINGETRAGEN" :PRINT"WER 

DEN." :GOT0895 

810 PRINT'WOLLEN{ SPACE} SIE{SPACE}DIE{ SPACEIK 
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<231> 
<29> 

<172> 
<132> 


<198> 
<228> 


<6> 


<205> 
<240> 


<121> 
<34> 

<252> 
<167? 


<114> 


723 


$23> 
<16> 


<88> 
<D> 


.<53) 
<211> 
<220> 
<912 
g16> 
<20> 
<97> 
<150) 
<190> 
<37> 
<7 


<244> 
<152> 


<229> 
<122) 
<36> 

<233> 


<21> 
<192>3 


<133> 
<92> 


<87> 
<237> 
<41> 
<1793 


<17> 


PROGRAMME EEE 


ETTE{ SPACE} ALS{ SPACE) FILE" 

820 INPUT"EINTRAGEN{ SPACE} (J/N) " ;A$: IFA$="N" 

THEN895 

838 IFA$< >"J"THENPRINTCHR$ (145) ; :GOT0828 

848 INPUT"WELCHER {SPACE} FILETYP ( SPACE} (PRG/S 

EQ/USR) " ;A$ 

842 FORTF=1T03: IFA$< >FT$ (TF)THENNEXTTF : PRINT 
CHR$ (145) ; :GOT084® 

845 INPUT"WELCHER{ SPACE} FILENAME{ SPACE} " ;A$: 
IFA$=""THENPRINTCHR$ (145) ; :GOT0845 

858 PRINT: PRINT"DAS( SPACE) "FT$ (TF) "-FILE{ SPA 
CE} "CHR$ (34) A$CHR$ (34) " { SPACE}WIRD" 

855 PRINT"INS{SPACE}DIRECTORY (SPACE}EINGETRA 

GEN." 

860 TR=18:5E=1:GOSUB200® : PRINT#15, "B-P{ SPACE 
}5{ SPACE} "BP*32+2; :BP=BP+1 

878 FORI=1T015: ern A$=LEFT$ 
(A$,16) : FORI=1T09: A$=A$+C0$:N 

880 PRINT#5, CHRS (TF+128) CHRS (HL)CHRS (H2) ASCH 
R$ (BAAND255) CHR$ (BA/256); 

898 PRINT#15, "U2{SPACE}5{ SPACE} ®{ SPACE}18{(SP 
ACE}1" ; :GOSUB900® 

891 FORI=1TOBA :BB% (H1,H2)=1:H=H1:H1=TR%(H,H2 
) :H2=SE%(H,H2) :NEXT 

895 PRINT: PRINT'"WEITERE( SPACE}BLOCKKETTEN{SP 

ACE}WERDEN( SPACE}GESUCHT. " 

897 NEXTS,T 

900 PRINT: PRINT"KEINE(SPACE)}WEITEREN(SPACE)K 
ETTEN{SPACE}MEHR. 

910 PRINT" VON( SPACE) INSGESAMT"KA"BLOCKKETTEN 
{ SPACE} WURDEN'"'BP 

920 PRINT"ALS{ SPACE} FILES{ SPACE} INS{SPACE}DI 
RECTORY { SPACE}EINGETRAGEN. " 

930 PRINT: PRINT" DIE{ SPACE} BAM{ SPACE}WIRD(SPA 
CEYERZEUGT. " 

940 REM *** BAM BITWEISE AUFBAUEN 

950 TR=-18:SE=9:G0SUB2008 :PRINT#15, "B-P{SPACE 
}S(SPACE}4"; 

968 FORTR=1T035: I=0 : FORSE=OTOFNSA (TR) :I=I-(B 

B&(TR,SE)<1) :NEXT:PRINT#5,CHR$ (I); 

978 I=®: FORSE=0T07 : I=I-2"SE* (BBX(TR,SE)<1) :N 

EXT:PRINT#5,CHR$(I); 

980 I=®:FORSE=8T015 : I=I-2* (SE-8) * (BB%(TR,SE) 

<1) :NEXT:PRINT#5,CHR$ (I); 

982 I=0:FORSE=16TOFNSA (TR) :I=I-2“ (SE-16) * (BB 

%(TR,SE)<1) :NEXT:PRINT#5,CHR$(I); 

984 NEXTTR:PRINT#15, "U2{ SPACE}S{ SPACE}®O{ SPAC 

ZI JASSPAZEI ON: »SOSUBDUOB-FRINTELS, ST GESUES 
Y) 

985 PRINT:PRINT"DAS{ SPACE} PROGRAMM{ SPACE} IST 
{SPACE} JETZT{ SPACE) AM{ SPACE}ENDE. " 

987 PRINT"WENN(SPACE}SIE(SPACE}MIT{ SPACE}DEN 
{ SPACEYEINTRAGUNGEN { SPACE} NICHT" 

989 PRINT"ZUFRIEDEN{ SPACE}SIND, { SPACE) FORMAT 

IEREN{ SPACE} SIE{ SPACE} DIE" 

998 PRINT"DISK {SPACE} EINFACH{ SPACE}NOCHEINMA 

L{ SPACE) (OHNE{ SPACE} ID!) , {SPACE)UND" 

992 PRINT"STARTEN{ SPACE}SIE(SPACE}DIESES( SPA 
.CE}PROGRAMM{ SPACE} ERNEUT. " 

993 PRINT" IN{ SPACE} BESONDERS ( SPACE) SCHWIERIG 

EN{SPACE}FAELL 

995 PRINT" (REL-FILES.. ‚) LSPACEYHILFTSPACHE 
IN{ SPACE} DISKMONITOR. 

997 CLOSES:CLOSE15: END 

1999 REM *** UPR. BLOCK TR,SE LESEN 

20080 PRINT#15, "Ul(SPACE)S{SPACE) BO SPACE} " ;TR 
;SE; 

2010 GOTO99008 

2999 REM *** BYTES A,B EINLESEN 

3000 GET#5,A$,B$:A=ASC (A$+C0$) :B=ASC (B$+C0$) 
:RETURN 

3508 GET#5,B$:B=ASC (B$+C2$) : RETURN 

9000 REM *** FLOPPY-STATUS LESEN 

_ INPUT#15,E1,E2$,E3$, E4$ : IFEL=0THENRETUR 




















9020 PRINT: PRINT: :PRINT"FLOPPY-FEHLER: "EL; CHR 
$(20); . or „ ‚E2$; I, Li} ;E3$; 2, I} ;E4$ 

9939 CLOSES: CLOSE15 
ENDE DES LISTINGS 


<23> 


<1909>3 
<231> 


865> 
<1722 
<171> 
<20> 
<89> 
<72 
<1483 
<205> 
772 
<127> 


<117? 
<128> 


<218> 
<153> 
<$253> 


<86> 
<83> 


<205> 
<232> 
<219> 
<110> 
<86> 


<142> 
<143> 
<238> 
<242> 


'<220> 


<185> 
<145> 
<56> 
<233> 
<2> 
<72> 
<28> 
<131> 
<200> 
<62> 
<33> 
<96> 


<31> 
21273 
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EEEE PROGRAMME 


Drummaster 
für C16/116/Plus 4 


Für die Programmierarbeit ist 
es häufig von Bedeutung, ein 
Spektrum neuer Möglichkeiten 
zu entwickeln und in einem 
Fundus zu sammeln. Dieses 
kleine Programm soll nur als 


Anregung dienen. Es zeigt 
einige Soundeffekte, die leicht 
in eigene Programme über- 
nommen werden können. 


Einfach mal ausprobieren! 


Pe ssDaseing 
C-16 LISTING + CHECKSUMMEN (OC V1.0) 


1® COLOR®,1:COLOR1,3,3:COLOR4,1 <127> 
28 PRINT"{ CLEAR SPACES}DRUMMASTER {SPACE} II-F 
UNK { SPACE) DRUMS". 

25 PRINT"{BLUE DOWN2 SPACE4}BY{SPACE}O.PIESC 


HE" 





<196> 











<243> 


3® PRINT"{DOWNS GREEN SPACE6}KEYS{SPACE RVSO 


N} 1-6 { RUSOFF') =DRUMS" <61> 
4® VOL8:GETKEYA:ONAGOTO110,130,150,170,190,2 

10 <242> 
SOERENS Se ee DRUMFIS ee j <143> 
110 FORT=8TO1STEP-3:VOLT:SOUND3,999,0®: : SOUND 
1,0,0:NEXTT <132> 
128 GOTO048 <249> 
25 SRENI= een DRUND 27-2 <200> 
138 FORT=8TO1STEP-2.5:SOUND1,T*80,1:FORI=1TO 
5 :NEXTI:VOLT:NEXTT <245> 
148 GOTO48 <13> 
DENT ee DRUMF II <242> 
150 FORT-1TO8BSTEP1.5:S0UND3,9980,1:VOLT:NEXTT <204> 
168 GOTO48 <33> 
1652 REMIS DRUM 4 -—-—-—-— <28> 
170 SOUND3,999,1: FORT=8TO1ASTEP-2 :VOLT:SOUND 
1,T*50,1:NEXTT <1487 
188 GOTO48 <53> 
185 REM == 42 — = oe = DRUM 5 re <70> 
190 SOUND3,999,2:FORT=1TO4STEP1 : VOLT: SOUNDI, 
558,8:NEXTT <202> 
208 GOTO48 <73> 
2OS. REM ers ere DRUM 6, — = <112> 
218 FORT=5TO8SSTEP1.5:VOLT:SOUND1,T*5®,1:SOUN 
D3,T*125,0:FORI=1T03:NEXTI :NEXTT <0> 
228 GOTO48 <93> 


ENDE DES LISTINGS 





Allen Programmautoren dieses Hefts an dieser Stelle herzlichen Dank! 


Wer sich ebenfalls als Programmautor versuche möchte oder erneut'sich 
beteiligen will, schneide bitte den Bewerbungsbogen mit der Schere aus 
und fülle ihn aus. Ihr selbstgeschriebenes Programm tritt in Konkurrenz 
zu sehr anspruchsvollen anderen Programmeinsendungen. Wenn Sie 
keine Befürchtungen haben, daß Ihr Programm unserer Qualitätsprüfung 
nicht standhält, schicken Sie uns Ihr Programm per Briefsendung. 'Eine 
Veröffentlichung lohnt sich auch finanziell! 


Eine solche Veröffentlichung kann sich manchmal etwas verzögern. Wir 
treffen zunächst eine Vorauswahl unter dem Gesichtpunkt der Qualität 
und stellen im Anschluß eine Auswahl speziell für ein Heft zusammen. 
Wenn ein bereits ausgewähltes Programm sich nicht in die Konzeption 
einfügen läßt, wird es zurückgehalten, um vielleicht in einer späteren Aus- 
gabe berücksichtigt zu werden. Werden Sie also nicht ungeduldig, wenn 
Sie nicht sofort nach der Einsendung eine eindeutige Zusage erhalten. 
Honoriert werden dabei nicht nur die Qualität der Programmierung, son- 
dern auch die Originalität der im Programm realisierten Idee. 

Volker Lohrengel 


Bewerbung als Programmautor 


Name: 
Straße: 
Titel des Programmes: 


Erforderlicher Speicherplatz: _____ KBytes 


Vorname: 


Wohnort: 


Computersystem: 


Bitte legen Sie Ihrer Bewerbung einen adressierten und frankierten 


Rückumschlag (DIN A4, 1,40 DM) beil 


Erforderliche Peripherie: 


Ich versichere hiermit, daß ich der Autor des obengenannten Programmes bin und alle Rechte besitze. Ich bin damit einverstanden, 
daß Sie mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 DM pro ab- 
gedruckter Seite. Sollte das Programm nicht veröffentlicht werden, bitte ich um Rücksendung meiner Unterlagen. Sollte mein Pro- 
gramm in der Zwischenzeit von anderer Seite erworben worden sein, werde ich Sie unverzüglich benachrichtigen. Ich bestätige durch 
meine Unterschrift, daß ich Kenntnis davon habe, daß der Tronic-Verlag gegen Personen, die Programme einschicken, deren Ur- 


heberrechte sie nicht besitzen, rechtliche Schritte einleitet. 


Unterschrift des Programmautors (ei Minderjährigen auch die eines Erziehungsberechtigten): 


Folgende Unterlagen liegen diesem Schreiben bei: 


Kassette: Diskette: 


Dokumentation: 


Listing: Rückporto: 


Unterschrift des Programmautors (bei Minderjährigen auch die eines Erziehungsberechtigten): 


Einsenden an: 
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(Bitte zweimal unterschreiben!) 


Tronic-Verlag Abt. Programmentwicklung, Am Stad, 3440 Eschwege 
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PROGRAMME EEE 





Echecs pour deux - das intelligente Schachbrett 


für Plus 4 und C16/C116 +64k Speichererweiterung 


Nachdem unser Programm zur 
Lösung von Schachproblemen 


. (SOLVE MASTER) so positive 


Resonanz gefunden hat, möch- 
ten wir allen Interessierten ein 
weiteres Schachprogramm 
vorstellen. Wenn ich von 
Schachprogramm rede, so 
meine ich kein Programm im 
üblichen Sinne, denn es han- 
delt sich hier nicht um ein Spiel 
”Mensch gegen Computer”, 
sondern um einen ”Schach- 
schiedsrichter”. 


Genauer gesagt, handelt es 
sich bei ”Echecs pour deux” 
um eine Art intelligentes 
Schachbrett. Wer kein Schach- 
brett besitzt, kann also den 
Computer als Schachbrett nut- 
zen. Der Computer stellt das 
Brett und auch die Figuren in 
einer ansehenswerten Grafik 
dar und überprüft gleichzeitig 
die Züge zweier menschlicher 


. Spieler. Leider werden nicht 


alle Regeln genau beachtet, so 


: daß z.B. das Ziehen ins Schach 


nicht registriert wird. Trotzdem 
glauben wir, daß man durch 


! dieses Programm einiges ler- 


nen kann. 


Vielleicht macht sich jemand 


‘die Mühe und erweitert das 
' Programm sogar soweit, daß 


es an der Weltmeisterschaft 


; der Schachprogramme teil- 
nehmen kann. 


; Hinweise zum Programmauf- 
bau 


ı Das Programm besteht aus 
drei Teilen, die bei der Disket- 
. tenversion automatisch und bei 


: Programmspeicher 


der Kassettenversion teilweise 
automatisch nachgeladen wer- 
den. Das erste Listing belegt im 
rund 8 
KBytes, der zweite Teil ca. 1,8 


' KBytes und der dritte Teil ca. 


‚ C16-- SA 5/88 


7,7 KBytes. Darüber hinaus 
wird der Programmspeicher 
um ca. 2 KBytes verkürzt, da 
der neue Zeichensatz diesen 
Platz benötigt. Bis auf wenige 
hundert Bytes wird der 
Restspeicher für Variablen 
verwendet. Aus diesem Grund 





sollten sich keine Programme 
im Rechner befinden, die den 
Basic Speicher verkürzen. An- 
sonsten kann es beim Betrieb 
des Programms zum "out of 
memory error” kommen. 


Im ersten Teil werden die Da- 
ten eingelesen und im Spei- 
cher abgelegt. Nachdem das 
Titelbild erstellt wurde, wird.der 
Bildschirm wieder eingeschal- 
tet und eine Titelmelodie ge- 
spielt. Durch Bedienung einer 
beliebigen Taste wird der 
zweite Teil nachgeladen. Nach 
dem Ladevorgang werden die 
beiden Schachspieler aufge- 
fordert, ihre Namen einzuge- 
ben. Danach wird das Spielfeld 
aufgebaut und der letzte Teil 
nachgeladen. Mit dem Start 
beginnt die Bedenkzeit des 
weißen Spielers zu laufen. 
Möchten beide Spieler eine 
Pause einlegen, genügt das 
Betätigen der Taste P. Soll die 
Pause beendet werden, muß 


wiederum die Taste P gedrückt 
werden. Möchte man einen 
Zug eingeben, so genügt es, 
eine beliebige Taste zu drük- 
ken. Danach fragt das Pro- 
gramm nach dem Anfangs- 
buchstaben der gewünschten 
Figur (B=Bauer, T=Turm, 


S= Springer, L=Läufer, 
D=Dame, K=König, X=Ro- 
chade links, Y=Rochade 


rechts, A=Aufgabe des Spie- 
lers, R= Remis). 


Während der Figureingabe 
bleibt die Bedenkzeit stehen. 
Es folgen die Koordinatenein- 
gaben (Standort und Ziel). 
Falscheingaben: werden er- 
kannt und eine Eingabewie- 
derholung erzwungen. Bevor 
der Zug ausgeführt wird, kann 
der Spieler seine Eingabe 
wiederholen, wenn er bei der 
Aufforderung "Wiederholung 
J/N” J eingibt. Nachdem alle 
Eingaben korrekt sind, wird der 
Zug ausgeführt und der näch- 
ste Spieler ist am Zuge. Möchte 
man die Bedenkzeit oder die 


Zuganzahl während der Be- - 


denkzeit ändern, wird folgende 
Änderung notwendig: 


Variable P: 0.5+(Anzahl der 
Züge, hier 40) 


Variable Tl: TI$ ="SSMMSS” 


Bsp.: TI$ = "024000”:PRINT TI 
Der TI Wert muß in Zeile 80 
eingesetzt werden. 


Selbstverständliich gestattet 
das Programm auch den Bau- 
erntausch. Ergibt sich diese Si- 
tuation, so erscheint die Mel- 
dung Bauerntausch auf dem 
Bildschirm. Danach wird man 
aufgefordert den Anfangs- 
buchstaben der neuen Figur 
einzugeben. 


Hinweise zum Abtippen: 


ECHECS POUR DEUX besteht 
aus drei Basic-Programm- 
teilen, welche ohne Probleme 
mit dem Checksummer OV20 
abgetippt werden können. Zu 
beachten ist, daß die abge- 
druckte Version nur mit Dis- 
kette zusammenarbeitet. Kas- 
settenbenutzer müssen des- 
halb folgende Änderung vor- 
nehmen: Bor 


Listing 1: 305 LOAD "TEIL 2” 
Listing 2: 10 SCNCLR 
DELETE 240-265 


240 SCNCLR:PRINT”LADEN 
SIE NUN TEIL 3 EIN,” 


245 END 
LISTING 3: DELETE 10 


Wichtig! Bevor man das Pro- 
gramm startet, sollte man alle 
Teile abgespeichert haben, da 
sich ein Listing bei Tippfehlern 
unter Umständen selbst zerstö- 
ren kann. Ebenfalls sollte man 
vor dem Start den Checksum- 
mer durch Ausschalten des 
Rechners entfernen. 

Viel Spaß! 
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BEE PROGRAMME 
295 VOL ®:CHAR 1,11,5,"{SPACE28}" <41> 














388 TRAP 315 <209>3 
C-16 LISTING + CHECKSUMMEN (OC V1.0) 305 DLOAD"TEIL{SPACE}2" <77> 
318 END = <183> 
18 REM ® <153> | 315 IF ER>® THEN SCNCLR:POKE 65287,8: PRINT" { 
15 REM <126> | BLACK DOWN5} " ;ERR$ (ER) :END <241> 
20 REM * * <117> | 320 DATA 00,30,48,30,48,48,30,00 <192> 
25 REM * ECHECS POUR DEUX (1) * <209> | 325 DATA 7E,7E,72,72,7E,72,72,08 <248> 
30 REM * « <127> | 338 DATA 7C,7C,74,74,7E,72,7E,00 <164> 
35 REM * GESCHRIEBEN VON ” <242> | 335 DATA 7E,7E,70,70,70,79,7E.008 <8> 
48 REM * “ <137> | 348 DATA 7C,7C,74,74,72,72,7E,00 <145> 
45 REM * OLIVER KAMIN * <59> 345 DATA 7E,7E,70,70,7E,79,7E,08 <77> 
50 REM * 4443 SCHUETTORF ” <99> 350 DATA 7E,7E,70,70,7E,70,70,00 <153> 
55 REM * * <152> | 355 DATA 7E,7E,70,70,76,72,7E,08 <154> 
60 REM * C-16,C-116 & PLUS/4 VERSION * <205> | 360 DATA 72,72,72,72,7E,72,72,00 <112> 
65 REM * “ <162> | 365 DATA 38,38,38,38,38,38,38,0® <28> 
70 REM We - <181> | 370 DATA 7E.7E,.02,02,02,02,7E,08 <57> 
75 REM <218> | 375 DATA 74,74,74,74,7E,72,72,08 <187> 
89 PRINT" (HOME2)": COLOR 4,1:POKE 65286,11:PO 380 DATA 70,70.70,70,70,70,7E,00 <120> 
KE 65287,® <21> | 385 DATA 62,76,72,72,72,72,72,088 <130> 
85 PRINT CHR$ (142) ;CHR$ (8) <194> | 398 DATA 62,72,7A,76,72,72,72,088 <38> 
98 POKE 51,255:POKE 52,55:POKE 55,238:POKE 5 395 DATA 7E,7E,72,72,72,72,7E,00 <176> 
6,55:CLR <175> | 408 DATA 7E,7E,72,72,7E,70,70,08 <245> 
95 FOR A=14336 TO 15359:READ A$:POKE A,DEC.* 405 DATA 7E,7E,72,72,72,76,7E,0®2 <50> 
$) <112> | 410 DATA 7C,7C,74,74,7E,72,72,08 <101> 
188 NEXT A <104> | 415 DATA 7E,7E,70,,0,7E,02,7E,0® <64> 
105 POKE 65298,192:POKE 65299,56 <1ı173> | 428 DATA 7E,7E,18,18,18,18,18,00 <88> 
118 COLOR 8,2,4:COLOR 1,3,® <5> “25 DATA 72,72,72,72,72,72,7E,00. <35> 
115 SCNCLR <91> 430 DATA 72,72,72,72,72,34,18,00 <127> 
120 PRINT TAB(8) "{ DOWNIGCA { SPACE}SOFTWAFE{ SP 435 DATA 72,72,72,72,7A,76,62,00 - <179> 
ACE}PR%SENTIERT" <63> 440 DATA 72,72,7E.18,7E,72,72,00 <113> 
125 PRINT TAB (8) "————— nn un ® <34> | 445 DATA 7..,72,72,7E,18,18,18,00 <158> 
138 COLOR 1,2,2 <31> 1450 DATA 78,77. 02,3C,70,70,7E,90 <13> 
135 PRINT TAB(11)"{DOWNS RVSON SPACE18 RVSOF 455 DATA 72,08.72,72,72,72,7E.00 <18> 
Ds: <121> | 460 DATA 00,00,C.3,00,03,07,0F,07 <21> 
148 PRINT TAB(11)"{RVSON SPACE}YECHECS { SPACE) 465 DATA 00,1B,3F,FF,FF,F3,F3,FF <109> 
POUR{ SPACE}DEUX{ SPACE RVSOFF " <199> | 470 DATA 00,00,80,80,80,C0,C0,C® <122> 
145 PRINT TAB(11)"{RVSON SPA SPACE18 RVSOFF}" <104> | 475 DATA 01,00,00,00,00,03,07,08 <207> 
150 COLOR 1,1 - <£39> 480 DATA 00,00,00,00,00.00,09,08 <8> 
155 PRINT <52> 485 DATA BF,3F,7F,7F,FF,FF,FF,3C <108> 
160 PRINT"{SPACE2 SJ SPACE SP 5Q SRY\] *tSPAC 490 DATA 08,00,90,00,00,00,00,08 i <18> 
E}${SPACE SU SV 5 SV SW S S-m{cH" <78> 1495 DATA C0,C0,C0,80,00,80,C0,008 :<144> 
165 PRINT"{SPACE2 . SK SPACE SS} ({ST}_!#{ SPACE 588 DATA 00,18,18,7E,FF,FF,FF,FF <250> 
" SK SPACE SX 5Y 52 5 SHIFTSPACE} ({.CK}" x <79> 505 DATA 72,00,7E,7E,72,7E,72,08 <154> 
170 PRINT" (SPACE SM SL SO SM SL SO SM SL SO 510 DATA 00,00,00.00,00,80,80,80 <6> 
SM SL 50 $+ SL C- 5+ SL C-}" <60> | 515 DATA 00,00,C0,30,08,04,04,04 <89> 
175 - PRINT" {WHITE UP4}" <33> 520 DATA FF,FF,FF,FF,FF,FF,FF,FF <17> 
188 PRINT TAB(21)"(S-)}r{C* SU SV SW SPACE}$t 525 DATA 00,80,40,40,40,20,20,20 <90> 
SPACE}\) {SP SQ SR SPACE SJ SPACE}" <47> 530 DATA 04,08,10,10,20,20,20,40 <76> 
185 PRINT TAB(21)"({SHIFTSPACE} ({CK 5X SY 52 SZ 535 DATA 20,10,08,08,04,04,04,02 <249> 
SPACE SK SPACE}_!*{SS} ({ST SPACE SK SPACE)" <124> | 540 DATA 00,00,00.00,.00,18,18,00 <162> 
198 PRINT TAB(21)"(S9+ SL C- 5+ SL C- SMSLS 545 DATA 00,090,00,3C,00,00,00,00 <79> 
0 SM SL SO SM SL SO SM SL 50)" <181> | 550 DATA 00,08,18,28,08,08,08,00 <245> 
195 COLOR 1,2,2 <96> 555 DATA 02,02,0E,38,70,70,70.00 <9> 
208 PRINT TAB(6) "{ DOWN2)GESCHRIEBEN { SPACE} VO 560 DATA 7E,7E,72,76,7A,72,7E,00 <1033 
N{ SPACE}OLIVER{ SPACE} KAMIN" <79> 565 DATA 38,38,18,18,18,18,18,08 <89> 
205 PRINT TAB(5) "{BLACK DOWNYMUSIK: F[R{SPACE 578 DATA 7E,7E,02,02,7E,70,7E,00 <212> 
}ELISE/SCHWARZE ( SPACE} AUGEN" <192> | 575 DATA 7E,7E,02,02,7E,02,7E,00 <1347 
218 COLOR 1,3,0 <103> | 580 DATA 72,72,72,72,7E,02,02,00 <74> 
215 PRINT'"{DOWN RVSON SPACE49 RVSOFFY“ <117> | 585 DATA 7E,7E,70,70,7E,02,7E,08 <235> 
220 PRINT"{DOWN SPACE2}COMMODORE(SPACE}16(SP 598 DATA 7E,7E,70,70,7E,72,7E,.®8 <103> 
ACE}- (SPACE) COMMODORE (.GPACE) 1161 SPACE) - {SPAC 595 DATA 7E,7E,02,02,02,02,02,.00 <0> 
E}PLUS4 { HOME} " <231> | 6080 DATA 7E,7E,72,72,7E,72,7E,00 <155> 
225 COLOR 1,2 <118> | 605 DATA 7E,7E,72,72,7E,02,7E,00 <41> 
238 CHAR 1,11,5,"{ FLASHON}EINE{ SPACE) TASTE{S 618 DATA 00,18,18,00,18,18,00,00 <55> 
PACE}DR[CKEN{ ELASHOFF} " <218> | 615 DATA 00,70,08,08,30,49,78,08 <253> 
235 POKE 65286,27:COLOR 4,3,0 <159> | 620 DATA 00,70,08,70.08,08,70,00 <225> 
248 RESTORE 960:VOL 2:FOR I=1 TO 93 <134> | 625 DATA 00,18,28,48,78,08,08,00 <1972 
245 READ B$,C$,D$ <219> | 638 DATA 00,78,490,40,70,08,79,08 <188) 
250 E$=B$+C$:E=DEC (E$) :D=DEC (D$) <82> 635 DATA 7E,7E,02,1E,18,00,18,08 <2373 
255 SOUND 1,E,D+(D/4) <123> | 648 DATA 00,38,40,70,48,48,30,08 <21> 
' 2680 GET F$:IF F$="" THEN NEXT I:ELSE 295 <55> 645 DATA 00,00,18,24,24,3C,24,24 <47> 
265 FOR I=1 TO 123 <71> 658 DATA 00,00,38,24,38,24,24,38 <230> 
2780 READ B$,C$,D$. <245> | 655 DATA 00,00,1C,20,20,20,20,1C <198> 
275 E$=B$+C$:E=DEC (E$) :D=DEC (D$) <108> | 668 DATA 00,00,38,24,24,24,24,38' <166> 
280 SOUND 1,E,D+(D/8B) <193> | 665 DATA 00,00,3C,20,3C,20,2®,3C <57> 


285 GET F$:IF F$="" THEN NEXT I:ELSE 295 <80> 670 DATA 00,00,3C,20,20,3C,20,20 <155> 
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675 
680 
685 
6908 
695 
798 
705 
710 
715 
720 
725 
730 
735 
740 
745 
7590 
755 
768 
765 
7798 
775 
7808 
785 
798 
795 
809 
805 
818 
815 
829 
825 
839 
> 
40 
845 
859 
855 
8608 
865 
878 
875 
8898 
885 
898 
895 
988 
905 
918 
915 
929 
925 
938 
935 
949 
945 
9508 
955 
968 
965 
978 
975 
989 
985 
9908 
995 
1008 
1005 
1010 
1015 
1029 
1025 
1030 
1035 
1849 
1045 
1058 
1055 
1069 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


80,00,1C,20,280,2C,24,1C 
090,00,24,24,3C,24,24,24 
00,78,08,08,10,20,20,09 
00,08,00,3C,7E,FF,FF,FF 
EF>ZE,3€C,EF,EE,SC,7E,FE 
FF,FF,FF,FF,FF,FF,00,00 
03,07,07,0F,0F,0F,00,00 
00,80,80,00,00,890,80,00 
C0,E®,E0,F®,F0,F0,00,008 
00,008,00,19,19,1F,1F,1F 
00,00,00,99,99,FF,FF,FF 
00,00,00,98,98,F8,F8,F8 
07,03,01,01,01,00,00,00 
E0,C0,80,80,80,00,00,00 
00,00,01,19,19,19,19,0D 
00,18,99,99,99,99,99,99 
00,00,80,98,98,98,98,B® 
0D,0D,0D,0D,06,06,06,06 
99,99,99,DB,DB,DB,DB,DB 
BO,B®,B0,30,60,60,60,69 
07,03,03,07,0F,1F,008,00 
E0,C0,C0,E0,F0,F8,00,00 
00,00,00,03,0F,1F,1F,1F 
38,30, 18, FE, ER.ERSER ER 
00,00,08,C0,F0,F8,F8,F8 
1F,0F,07,07,03,03,03,01 
F8,F0,E0,E®,C0,C0,C®,80 
00,00,00,00,00,01,01,01 
00,00,3C,42,81,00,00,088 
01,00,01,01,01,01,00,01 
00,81,C3,00,20,C3,81,00 
80,00,80,80,80,80,00,8® 
04,08,08,10,10,10,1F,00 
80,00,08,00,.00,00,FF,08 
20,18,10,08,08,08,F8,00 
00,00,00,03,04,08,10,08 
1B,24,C0,00,008,0C,0C,08 
08,10.20,20,40,40,40,80 
06,01,00,00,03,04,08,07 
40,C0,80,80,00,00,08,C3 
20,20,20,40,80,40,20,C8 
18,24,24,42,81,008,00,09 
00,00,3F,26,26,20,20,20 


.88.00,FF,.66.66.00.00.08 


09,00,FC,64,64,04,04,04 
38,04,02,02,02,01,01,01 
1C,20,40,40,40,80,88,80 
00,03,3E,26,26,26,26,12 
3C,E7,66,66,66,66,66,66 
00,C0,7C,64,64,64,64,4C 
12,12,12,13,09,09,09,09 
66,66,66,24,24,24,24,24 
48,48,48,C8,90,90,90,90 
08,04,04,08,10,20,3F,00 
20,40,40,28,10,08,F8,0® 
808,00,03,0C,10,20,20,.20 
24,42,E7,00,00.00,00,08 
03,56,0A,03,4D,0A, 03,56 
OA,03,4D,0A,03,56,0A,03 
1E,0A,03,42,0A,03,2A,0A 
03,02,1E,02,54,0A,02,AD 
OA,03,02,0A,03,1E,14,02 
AD,0A,02,F3,0A,03,1E,0A 
03,2A,1E,02,AD,0A,03,56 
0A,03,4D,0A,03,56,0A,03 
4D,0A,03,56,0A,03,1E,0A 
03,42,0A,03,2A,0A,03,02 
14,02,54,0A,02,AD,0A,03 
02,0A,03,1E,1E,02,AD,OA 
03,2A,0A,03,1E,0A,03,02 
28,03,56,0A,03,4D,0A,03 
56,0A,03,4D,0A,03,56,0A 
03,1E,0A,03,42,0A,03,2A 
0A,03,02,1E,02,54,0A,02 
AD,0A,03,02,0A,03,1E,1E 
02,AD,0A,02,F3,0A,03,1E 
0A,03,2A,1E,02,AD,0A,03 
56.0A.03,4D,0A,03,56,0A 
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<1327 
<6> 
<4a1> 
<15> 
<2> 
<53> 
<58> 
<1277> 
<199) 
<171> 
<100> 
<220> 
<83> 
<158> 
<139> 
<12> 
<56> 
<77> 
<71> 
<23> 
<174> 
<120> 
<79> 
<£53> 
<106> 
<95> 
<172 
<147? 
<223> 
<175> 
<114> 
<192> 
<253> 
<248> 
<80> 
<64> 
<88> 
<777>: 
<104> 
<140> 
<112> 
<205> 
<201> 
£82> 
<2> 
<107> 
<92> 
<238> 
<15> 
<164> 
<231> 
<164> 
<104> 
<196> 
<39> 
<101> 
<252> 
<197> 
<111> 
<84> 
<48> 
<113> 
<137> 
<236> 
<141> 
<240> 
<185> 
<162> 
<172> 
<70> 
<10> 
<153> 
<12> 
<233> 
<72>- 
<170> 
<147?7 
<183> 


1065 
1070 
1075 
10808 
1085 
1898 
1095 
1100 
1105 
1110 
1115 
1128 
1125 
1130 
1135 
1148 
1145 
1150 
1155 
1160 
1165 
1170 
1175 
1188 
1185 
1190 
1195 
1208 
1205 
1210 
1215 
1220 
1225 


1230 


1235 
1248 
1245 
1250 
1255 


.1260 


1265 
1270 
1275 
1280 
1285 
1298 
1295 
1308 
1305 
1318 
1315 
1320 
1325 
1338 
1335 
13408 
1345 
1350 
1355 
1360 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


-DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


‘DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


PROGRAMME EEE 


03,4D,0A,03,56,0A,03,1E 
0A,03,42,0A,03,2A,0A,03 
02,1E,02,54,0A,02,AD,OA 
03,02,0A,03,1E,1E,02,AD 
OA,03,2A,0A,03,1E,0A,03 
02,1E,03,1E,0A,03,2A,0A 
03,42,0A,03,56,1E,02,E3 
0A,03,60,0A,03,56,0A,03 
42,1E,02,C0,0A,03,56,0A 
03,42,0A,03,2A,0A,03,1E 
28,02,AD,0A,03,56,14,02 
AD,0A,03,56,1E,03,4D,0A 
03,56.1E,03,4D,®A, 03,56 
0A,03,42,28,03,FE,28,02 
E3,14,03,02,14,03,1E,1E 
03,02,0A,03,02,28,02,F3 
14,03,02,14,03,1E,1E,03 
02,0A,03,02,28,03,02,14 
03,42,14,03,42,1E,03,36 
0A,03,2A,28,03,42,14,03 
60,14,03,56,1E,03,42,0A 
03,42,28,03,36.14,03,42 
14,03,60,1E,03,56,0A,03 
1E,28,03,56,14,03,60,14 
03,56,1E,03,42,0A,03,02 
28,02,F3,14,03,02,14,03 
1E,1E,03,02,0A,03,02,28 
02,AD,14,02,C0,14,02,AD 
1E,02,83,0A,02,83,14,02 
83,14,02,F3,14,03,02,14 
03,1E,1E,03,02,0A,03,02 
28,02,F3,14,03,02,14,03 
1E,1E,03,02,0A,03,02,28 
03,02,14,03,42,14,03,42 
1E,03,36,0A,03,2A,28,03 
42,14,03,60,14,03,56,1E 
03,42,0A,03,42,28,03,36 
14,03,42,14,03,60,1E,03 
56,0A,03,1E,28,03,56,14 
03,60,14,03,56,1E,03,42 
@A,03,02,28,02,F3,14,03 
02,14,03,1E,1E,03,02,0A 
03,02,28,02,AD,14,02,C0 
14,02,AD,1E,02,83,0A,02 
83,14,02,83,14,02,F3,14 
03,02,14,02,E3,1B,02,D3 
09,02,E3,24,02,E3,12,02 
E3,12,02,C0,1B,02,AD,09 
02,C0,24,03,02,12,03,42 
12,03,42,1B,03,36,09,03 
42,24,03,56,12,03,60,12 
03,56,1B,03,42,09,03,42 
12,03,42,12,03,60,12,03 
71,12,03,60,1E,03,56,0A 
03,1E,28,03,56,14,03,6® 
14,03,56,1E,03,42,0A,03 
02,28,02,E3,14,02,F3,14 
03,1E,1E,02,AD,0A,03,02 
28,03,02,28,02,E3,14,02 
C0,14,02,AD,32,03,FE,28 


ENDE DES LISTINGS 


C-16 LISTING + CHECKSUMMEN (OC V1.0) 


Teil 2 


18 SCNCLR:POKE 828,0 


15. COLOR 1,2:PRINT" {DOWNS RIGHT2}NAME{ SPACE} 


SPIELER{SPACE}1:{SPACE}"; 
28 OPEN 1,0:INPUT#1,N1$:CLOSE 1 
25 NW$=LEFT$ (N1$,10) 


30 COLOR 1,1:PRINT:PRINT" {DOWN4 RIGHT2YNAME{ 


SPACE}SPIELER{ SPACE} 2: {SPACE}"; 
35 OPEN 1,0:INPUT#1,N2$:CLOSE 1 
40 NS$=LEFT$ (N2$,10) 

45 SCNCLR:COLOR 4,1:POKE 65286,11 











<198> 
<202> 
<19> 
<154> 
<135> 
<114> 
<216> 
<83> 
<159> 
<2> 
<60> 
<244> 
<151> 
<159> 
<121> 
<173> 
<222>2 
<179> 
<28> 
<92> 
<12> 
<10> 
<180> 
<75> 
<2427 
<> 
<26> 
<230> 
<200> 
<100> 
<30> 
<30> 
<56> 
<216> 
<4> 
<252? 
<10> 
<66> 
<217> 
<132> 
<99> 
<167> 
<253> 
<259> 
<209> 
<117> 
<146> 
<119> 
<32> 
<74> 
<58> 
<43> 
<225> 
<214> 
<45> 
<47> 
<166? 
<150> 
<126> 
<89> 





<9> 


<230> 
<4> 
<55> 


<3> 

<29> 
<70> 
497 


23 





BEE PROGRAMME 


58 FOR I=® TO.23 STEP 6 
55 CHAR 1,1,1,"{SPACE3 RVSON SPACE3 RVSOFF 5 
PACE3 RVSON SPACE3 RVSOFF SPACE3 RVSON SPACE 


zZ Zicln Zn Zoo Zu oo 


CE3 RVSOFF SPACE3 RVSON SPACE3 RVSOFF}" 

65 CHAR 1,1,1+2,"{SPACE3 RVSON SPACE3 RVSOFF 
SPACE3 RVSON SPACE3 RVSOFF SPACE3 RVSON SPA 
CE3 RVSOFF SPACE3 RVSON SPACE3 RUSOFF}"“ 

70 NEXT I 

75 FOR I=3 TO 23 STEP 6 

80 CHAR 1,1,1,"{RVSON SPACE3 RVSOFF SPACE3 R 
F SPACE3 RVSON SPACE3 RVSOFF SPACE3}“ 

85 CHAR 1,1,1+1,"{RVSON SPACE3 RVSOFF SPACE3 
.RVSON- SPACE3 

OFF SPACE3 RVSON SPACE3 RVSOFF SPACE3)“ 

90 CHAR 1,1,1+2,"{RVSON SPACE3 RUSOEF SPACE3 
RVSON SPACE3 RVSOFF SPACE3 RVSON SPACE3 RVS 

OFF SPACE3 RVSON SPACE3 RUSOFF SPACE3}" 

95 NEXT I 

100 COLOR 1,3,0:CHAR 1,1,24,"{RVSON SPACE SA 
SPACE2 SB SPACE2 SC SD SE SPA 

CE2 SF SPACE2 SG SPACE2 SH SPACE3 RVSOFF}“ 

105 FOR I=® TO 23:CHAR 1,25,1,"{RVSON SPACE2 
RVSOFF} “ :NEXT I 

110 FOR I=-7 TO ® STEP-1:READ I$:CHAR 1,25,I* 

3+1,"{RUSON} "+I$:NEXT I 

115 DATA EB SF Re Fer 

















120 COLOR 1,2:CHAR 1,28,1,"{RVSOFF}SPIELER{5 
PACEY1:" 

125 CHAR 1,28,2,"{RVSON SPACE1@ LEFT18}"+NW$ 
138 CHAR 1,29,4,"{RVSOFF}0:09:90" 

135 COLOR 1,3,@0:CHAR 1,27,6,"{RVSON SPACE12 


RVSOFF} " 
148 COLOR 1,1:CHAR 1,28,8, "{RVSOFF}SPIELER{S 
PACE}2:" ; 


145 CHAR 1,28,9,"{RVSON SPACE1@ LEFT10}“+NS$ 
150 CHAR 1,29,11,"{ RVSOFF}90:09:00" 4 
155 COLOR 1,3,0:CHAR 1,27,13,"{RVSON SPACE12 
RVSOFF} " 
160 COLOR 1,3,0:CHAR 1,27,14,"{RVSON SPACE12 
RVSOFF} " 
165 COLOR 1,1 
.17® CHAR 1,1,0,"{SP SQ SR RVSON CN CQ}Y) {RVSO 
EF SPACE}${SPACE RVSON CL CY CU RVSOFF S-}={ 
VSOFF} " 
175 CHAR 1,1,1,"{SS} ({ST RVSON CZ CS CP RVSO 
FF SPACE SK SPACE RVSON CO S@ CF RVSOFF SHIF 
TSPACE} ({CK RVSON C@ CG C+ RVSOFF}_!#1RUSON 
CH SPACE CJ RUSOFF}“ 
180 CHAR 1,1,2,"{SM SL SO RVSON CM C\ S\ REVS 
OFF SM SL SO RVSON CC C\ CX RVSOFF S+ SL CZ 
RUSON CM C\ S\ RVSOFF SM SL SO RVSON CM C\ 5 
\ RVSOFF}" 
185 CHAR 1,1,3,"{RVSON CI CT}&{RVSOFE SPACE 
5J SPACE RVSON CI CTYS{RVSOFF SPACE SJ SPACE 
RVSON CI CT}S{RVSOFF SPACE SJ SPACE RVSON € 
I CTYS{RVSOFF SPACE SI SPACE}“ 
198 CHAR 1,1,4,"{RVSON C@ CG C+ RVSOFF SPACE 
SK SPACE RVSON C@ CG C+ RVSOFF SPACE SK SPA 
CE RVSON C@ CG C+ RVSOFF SPACE SK SPACE RVSO 


N C@ CG C+ RUSOFF SPACE SK SPACE)" 


195 CHAR 1,1,5,"{RVSON CM C\ S\ RUSOFF SM SL 
SO RVSON CM C\ 3\ RVSOFF SM SL SO RVSON CM 

C\ S\ RUSOFF SM SL SO RUSON CM C\ S\ RVSOFE 

SM SL 50)" 

20@ CHAR 1,1,18,"{CI CTIS{RVSON SPACE SJ SPA 
CE RVSOFF CI CT}YS{RVSON SPACE SJ SPACE RVSOF 


E CI CTS{RVSON SPACE 5SJ SPACE RVSOFF CI CT) 


&ARVSON SPACE SJI SPACE RVSOFF}Y" 
205 CHAR 1,1,19,"{C@ CG C+ RVSON SPACE SK SP 


ACE RUSOFF C@ CG C+ RVSON SPACE SK SPACE RVS 


OFF C@ CG C+ RVSON SPACE SK SPACE RVSOFF C@ 
CG C+ RUSON SPACE 3K SPACE RVSOFF}Y" 


= _ Zu zu = 






































<14> 
<169> 
<2207 


<2337 
<90> 
<51> 


<18> 
<69> 


<822 

<115> 
<201> 
<$224> 
<226> 
<165> 
<234> 
<120> 
<792 

<109> 
<102> 
<53> 

<108> 
<204> 


<224> 
542 


<1397 


<98> 


<110> 


<179> 


<146> 


<29> 


<238> 


<206> 


210 CHAR 1,1,20,"{CM C\ S\ RVSON SM SL 
SOFF CM C\ 5\ RVSON SM SL SO RVSOFF CM C 
RVSON SM SL SO RVSOFF CM C\ S\ EVSON SM SL 
SO RVSOFF}" 
215 CHAR 1,1,21,"{RVSON SP 5Q SR RUSOFF CN C 
QD}){RVSON SPACE}${SPACE RVSOFF CL CY CU RVSO 
N S-}r(C* RVSOFF CI CAYS{RVSONY\) "{RVSOFF CE 
CR cm" 
220 CHAR 1,1,22,"{RVSON SS}({ST RVSOFF CZ CS 
CP RVSON SPACE SK SPACE RVSOFF CQ S@ CE RVS 
ON SHIFTSPACE} ({CK RVSOFF C@ CG C+ RVSON)..!* 
{RVSOFF CH SPACE CJY" 2 
225 CHAR 1,1,23,"{RVSON SM SL 50 RVSOFF CM C 
\ 5\ RVSON SM SL SO RVSOFF CC C\ CX RVSON St 
'SL C- RUSOEF CM C\ 5\ RUSON SM SL SO RVSOFE 
CM C\ S\}" 
230 CHAR 1,27,15,""+CHR$(27)+CHR$ (84) _ 
235 POKE 65286,27:COLOR 4,3,® 
248 TRAP 255 
245 DLOAD"TEIL{SPACE}3" 
250 END 
255 IF ER>® THEN 260 
260 IF ER=4 THEN PRINT"{DOWN SPACE}PROGRAMM" 
: PRINT" { SPACE} NICHT { SPACE}YGE-" : PRINT" { SPACE} 
FUNDEN" :END:ELSE 265 
265 PRINT ERR$(ER) 
ENDE DES LISTINGS 








x 


C-16 LISTING + CHECKSUMMEN (OC V1.®) 


10 IF PEEK(828)=@ THEN POKE 828,1:POKE 45,10 
3:POKE 46,46: RUN 

15 CLR:P=.5:G0SUB 495 :2D$="W" 

20 TW$-"000000" :TS$="000000"' 

25 CHAR 1,27,15,""+CHR$ (27) +CHR$ (84) 

30 IF P=40.5 THEN 1190 

35 SCNCLR:PRINT"{RVSOFF BLACK DOWN SPACE3) ZU 
G{ SPACE} ??" 

40 IF ZD$="S" THEN 45:ELSE 50 

45 TI$=TS$:60T0 55 

59 TI$=TW$ 

55 IF ZD$="S" THEN 70 

68 IF ZL=1 THEN 85 

65 CHAR 1,29,4,"{WHITE_RVSOFF) "+LEFT$ (TI$, 2) 
+" ;4MID$ (TI$,3,2) +": "+RIGHT$(TI$,2) :GOTO 80 
70 IF ZL=1 THEN 85 

75 CHAR 1,29,11,"{BLACK RVSOFF} "+LEFT$(TI$,2 
)+":"4MID$ (TI$,3,2)+":"+RIGHT$ (TI$, 2) 

80 IF TI>576000 THEN 1210 

85 GET ZU$:IF ZU$="" THEN 90:ELSE 95 

98 IF ZD$="S" THEN 70:ELSE 68 

95 IF ZU$="P" THEN 1150 

100 IF ZD$="S" THEN 110 

105 TW$-TI$:G0T0 115 

110 TS$-TI$ 

115 COLOR 1,3,0:CHAR 1,27,14,"":PRINT USING" 
{RVSON SPACE3}*# , ZUG{ SPACE3 RUSOFFY " ;P 

120 CHAR 1,27,15, ""+CHR$ (27) +CHR$ (84) 

125 P=P+.5 

130 DT=0:1$="" :0B$="" :02$="" :ZB$="":22$="":P 
RINT" {CLEAR BLACK DOWN RVSOFF}FIGUR: {SPACEY" 
;:GETKEY FI$:PRINT FI$ 





135 IF FI$="A" THEN 1110 

148 IF FI$="R" THEN 1135 

145 IF FI$="X" OR FI$="Y" THEN 150:ELSE 155 
150 IF RW2® OR RS=@ THEN 960:ELSE 138 

155 RESTORE 160:FOR II=1 TO 9:READ F$:IF FI$ 
=F$ THEN 165:ELSE NEXT II:GOTO 130 

168 DATA "B" £ 4 tal R n,gn r SE Ei 5 y 2& , ge F db al F a n u A 
165 FI=II:COLOR 1,2,2:PRINT" {HOME DOWN3}ORT: 


{SPACE3 LEFT2}“ ; :GETKEY OB$:PRINT OB$; 

178 RESTORE 180:FOR-I=1 TO 8:READ O01$:IF 01$ 
=OB$ THEN 198:ELSE NEXT I 

175 GOTO 165 


<26> 
<31> 
<111> 


<216> 
<214> 
<159> 
<158> 
<24> 

<122> 
<1027 


<88> 
<101> 





<105> 
<24> 
<123> 
<9> 
<52> 


<251> 
<203> 
<211> 
<246? 
<130> 
<54> 


<16> 
<64> 


<246> 
<128> 
<32> 

<242> 
<131> 
<199> 
<23> 

<242> 


<68> 
<104> 
<2373 


<151> 
<198> 
<155> 
<161> 
2387 


<196> 
<1297 


<18> 


<175? 
<16> 


C16-SA. 5/88 


180 DATA "A" 5 "B" r on 5 pn 7 .p" 3 pu R gu & "Y" 
185 GETKEY 02$:PRINT" (HOME DOWN3 RIGHT6}" ;02 


$_ 

190 RESTORE 200:FOR I=1 TO 8:READ 02$:IF 02$ 
=0Z$ THEN 205:ELSE NEXT I 

195 PRINT"({HOME DOWN3 RIGHT6 SPACE}":GOTO 18 
5 

208 DATA nen n Na RC EN 2 url R a : "os 1 ir El. 5 1.4 3 

205 PRINT"{HOME DOWN4}ZUG:(SPACE5 LEFT4}"; :6 
ETKEY ZB$:PRINT ZB$; 

210 RESTORE 180:FOR I=1 TO 8:READ Z1$:IF Zi$ 
=ZB$ THEN 220:ELSE NEXT I 
215 GOTO 205 

220 GETKEY ZZ$:PRINT"(HOME DOWN4 RIGHT6}“ ;22 
$ 7 

225 RESTORE 185:FOR I=1 TO 8:READ Z2$:IF 22$ 
=22$ THEN 235:ELSE NEXT I 

230 PRINT"(HOME DOWN4 RIGHT6 SPACE} :GOTO 22 
® 

235 IF OB$=ZB$ AND 0OZ$-ZZ$ THEN 205 

240 O$=OB$+02$:2$=ZB$+ZZ$ 

245 PRINT" (BLACK DOWN)WIEDERHOLUNG ( SPACE) J/N 
{SPACE} ?" 

250 GETKEY NO$:IF NO$="J" THEN 130 

255 IF NO$="N" THEN 260:ELSE 250 

260 FOR XK=1 TO 64:IF O$=KO$(XK) THEN 265:EL 
SE NEXT XK 

265 FOR XL=1 TO 64:IF Z$=KO$(XL) THEN 270:EL 
SE NEXT XL 
2790 IF LL$(XK)="F" THEN 130 

275 GOTO 548 

280 IF 2D$="S" THEN 298 

285 IF LEFT$(LL$(XK) ,‚2)="W"+FI$ THEN 295:ELS 
E 130 

290 IF LEFT$(LL$(XK) ‚2)="S"+FI$ THEN 300:ELS 
E.138 

295 IF LEFT$(LL$(XL),1)="W" THEN 130:ELSE 30 
5 























300 IF LEFT$(LL$(XL),1)="S" THEN 130 
305 IF MID$(LL$(XL),.2,1)="K" THEN 1258 

310 IF FE$(XK)="S" THEN LF$=F2$:ELSE LF$="(R 
VSOFF} "+F1$ 

315 GOTO 468 

320 IF DT-2 THEN 700 

325 IF RO=1 THEN 1005 

330 IF ZD$="S" THEN 349 ; 
335 RR$="{ RVSON) " :RE$="{ RVSOFFY" :GOTO 345 
340 RR$="{RVSOFF}) " :RE$="{RVSON)" :GOTO 350 
345 IF FE$(XL)="S" THEN 355:ELSE 360 

350 IF FE$(XL)="W" THEN 355:ELSE 360 

355 SF$=-RR$+G1$+RE$S:GOTO 365 

360 SF$-RE$+G2$+RR$ 

365 MX=(ASC (0B$)-64) *3-2 :MY=23-( (ASC (02$)-48 
)*3-1) 

370 SX=(ASC(ZB$)-64) *3-2:3Y=23-( (ASC (Z2$) -48 
)*3-1) 

375 COLOR 1,1:CHAR 1,MX,MY, ""+LF$:CHAR 1,5%, 
SY,""4SFS 

380 IF K=-1 THEN 1255 

385 LL$(XK)="F":LL$ (XL) =ZD$+FIS+"B" 

390 IF DT-1 THEN 665 

395 IF ZD$="W" THEN ZD$="S":DT=0:G60T0 25:ELS 
E -480 

400 ZD$=-"W":DT=0:60T0 25 

405 DIM FE$(64):DIM KO$(64):DIM LL$(64) 

41® RESTORE 415:FOR I=1 TO 64:READ FE$(I),KO 
$(I):NEXT I 

415 DATA S,A1,W,B1,9,C1,W,D1,5,E1,W,F1,9,61, 
W.Hl 

420 DATA W,A2,5,B2,W,.C2,5,D2,W,E2,5,F2,W,G2, 
S,H2 

425 DATA 5,A3,W,B3,5,C3,W,D3,9,E3,W,F3,3,63, 
W,H3 

430 DATA W,A4,9,B4,W,C4,5,D4,W,E4,5,F4,W.64, 
$,H4 

435 DATA S,A5,W,B5,5,C5,W,D5,9,E5,W,F5,9,65, 
W.H5 

448 DATA W.A6.5.B6.W.C6.5.D6.W.E6.5.F6.W.66. 
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$215> 
<234) 
<192> 
<223> 


<107>° 


<49> 


<150> 
<40> 


<2137 
<201> 


<6> 
<1327 
<89> 


<36> 
<167> 
$134> 


<231> 


<55> 
<41> 
<99> 
<213> 


<80> 
<215> 


<84> 
<32> 
<198> 


<120> 
<143> 
<173> 
<162> 
<218> 
<201> 
<125> 
<56> 

<105> 
<183> 
<185> 


<1123 


"<138> 


<2397 
<196> 
<56> 
<68> 
<185> 
<89> 
<81> 
<237> 
<215> 
<64> 
<73> 
<178> 


<187> 


665 


PROGRAMME Eu 


5,H6 

445 DATA S,A7,W,B7,5,C7,W,D7,5,E7,W,F7,3,67, 
W,H7 

450 DATA W,A8,5,B8,W,C8,5,D8,W,E8,5,F8,W,G8, 
S,H8 

455 GOTO 495 ‘ 

460 ON FI GOTO 465,470,475,480,485,490 


SPACE DOWN LEFT3 SM SL 50)":62$="{CI CTYS{D 

OWN LEFT3 C@ CG C+ DOWN LEFT3 CM C\ S\}":GOT 

0 320 

470 G1$="(SP SQ SR DOWN LEFT3 SS} ({ST DOWN L 
EFT3 SM SL 30)":62$="{CE CR CW DOWN LEFT3 CH 
SPACE CJ DOWN LEFT3 CM C\ S\}":GOTOÖ 328 

475 Gl$="\] {DOWN LEFT3}_!#{DOWN LEFT3 SM SL 
50}":62$="{CN-CQ}) {DOWN LEFT3 CZ CS CP DOWN 
LEFT3 CM C\ S\}":GOTO 320 

480 Gi$="{SPACE}$S{SPACE DOWN LEFT3 SPACE SK 


SPACE DOWN LEFT3 SM SL 30)" :G2$="({CI CA}&{DO 
WN LEFT3 C@ CG C+ DOWN LEFT3 CM C\ S\)":GOTO 
320 


485 G1$="{SU SV SW DOWN LEFT3 5X SY SZ DOWN 





























xXTT 

505 DATA WTB, WSB,WLB,WDB,WKB, WLB,WSB.WTB 
51@ DATA WBB,WBB,WBB,WBB,WBB,WBB,WBB,WBB 
SESEDATA DEE. BR. EB EDEN ERS DD EGSE.E 
SZORDATA-TI N, E,ESEHESENE FE LESE BA EG 
525 DATA SBB,SBB,SBB,SBB,SBB,SBB,SBB.SBB 
530 DATA STB,5SB,SLB,SDB,SKB,SLB,SSB,STB 
535 RETURN 

540 ON FI GOTO 545,750,835,855,915,925 
545 IF ZD$="S" THEN 595 

550 V=--8:IF 02$< >"2" THEN 570 


555 
560 


MF$=OB$+"4": IF ME$<>Z$ THEN 570 

IF LL$(XL)="F" THEN 565:ELSE 130 

565 IF LL$(XL+V)="F" THEN 645:ELSE 130 

570 V=9:MF$=OB$+CHR$ (ASC (0OZ$) +1) : IF MF$< >Z$ 
THEN 575:ELSE 560 

575 MF$=CHR$ (ASC (OB$)-1) +CHR$ (ASC (0Z$) +1) 
580 IF MF$<>Z$ THEN 585:ELSE 630 

585 MF$=CHR$ (ASC (OB$) +1) +CHR$ (ASC (02$) +1) 
598 IF MF$<>Z$ THEN 130:ELSE 630 

595 V=-8:IF 02$<>"7" THEN 605 

600 MF$=OB$+"5":IF MF$<>2$ THEN 605:ELSE 560 
605 V=9:MF$=OB$+CHR$ (ASC (OZ$)-1) : IF MFS<SYZE 
THEN 610:ELSE 569 

618 MF$=CHR$ (ASC (OB$)-1)+CHR$ (ASC (02$)-1) 
615 IF MF$<>Z$ THEN 620:ELSE 630 

6280 MF$=CHR$ (ASC (OB$) +1) +CHR$ (ASC (02$)-1) 
625 GOTO 599 

630 IF ZD$="S" THEN 640 

635 IF LEFT$(LL$(XL),1)="S" THEN 645:ELSE 13 
® 
649 
® 
645 
6598 
655 
668 


IF ZD$="S5" 'THEN 655 

IF 22Z$="8" THEN 660:ELSE 318 

IF ZZ$="1" THEN 660:ELSE 310 
T1$="":DT=1:G60TO 318 

CHAR 1,27,15,'""+CHR$ (27) +CHR$ (84) 

678 SCNCLR: PRINT" { RUSOFF DOWN}BAUERNTAUSCH" 
675 PRINT" { DOWN}NEUE{ SPACE}FIGUR: {SPACE}" ; :G 
ETKEY NF$: PRINT NF$ - 

680 RESTORE 685:FOR FI=2 TO 5:READ OF$:IF OF 
$=NF$ THEN 695:ELSE NEXT FI 

685 DATA ed 0 $; MEN ; Dt 5 Ah 5 a 

690 GOTO 679 = 

695 DT=-2:G0T0O 468 


IF LEFT$(LL$(XL),12)="W" THEN 645:ELSE 13° 


<36> 
<45> 


<150> 
<56> 
<232> 


<124> 
<41> 


<65> 


<148> 


<164> 


<120> 


$208> 


<1937 
<100> 
<166> 
<188> 
<193> 
<182> 
<126> 
<167> 
<191> 
<57> 
<27> 
<4a1> 
<107> 
<82> 


<252> 
<13> 

<255> 
<10> 

<110> 
<1447 
<136> 


<208> 
<73> 
<174> 
<70> 
<209> 
<37> 


<$222> 


<35> 
<123> 
<169> 
<125> 
57 


.<139> 


<72> 
<129> 
<1> 
<231> 


<14> 
<167> 
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BEE PROGRAMME 


708 
705 
710 
715 
720 
725 
7308 
735 
749 
745 
7598 
755 
768 
765 
770 
775 
780 
LSE 
785 
798 
795 


IF ZD$="5" THEN 720 

IF FE$(XL)="S" THEN 715 

T1$=-62$:G0TO 735 

T1$=" { RUSON}"+G1$:GO0OTO 735 

IF FE$(XL)="S" THEN 730 

T1$=61$:G0TO 735 

T1$=" { RVSON}"+G2$ 

CHAR 1,5X,5SY,""+T1$:CHAR 1, MX, MY, 4LFE 
LL$ (XL) =ZD$+NF$+"B" 

GOTO 395 

IF ZD$="S" THEN 760 

RW=1:60TO 765 

RS=1 7725 

IF 22$=02$ THEN 820 

IF ASC(Z2$)<ASC(OZ$) THEN 815 

FOR I=1 TO 9:MF$=OB$+CHR$ (ASC (0OZ$) +I) 
FOR PP=1 TO 64:IF KO$(PP)=MF$ THEN 795:E 
NEXT PP:NEXT I 

IF I>=9 THEN 790:ELSE 795 

IF DA=1 THEN 855:ELSE 138 

IF MF$=Z$ THEN 800:ELSE 805 

800 IF DA=1 THEN 920:ELSE 288 

805 IF RIGHT$(LL$(PP),1)="B" THEN 810:ELSE N 
EXT-I; 

810 IF DA=1 THEN 855:ELSE 130 

815 FOR I=1 TO 8:MF$=OB$+CHR$ (ASC (0Z$)-I) :GO 
To 780 

820 IF ASC(ZB$)<ASC(OB$) THEN 838 

825 FOR I=1 TO 8:MF$=CHR$ (ASC (OB$)+I) +02$:60 
TO 780 

830 FOR I=1 TO 8:MF$=CHR$ (ASC (OB$)-I)+0Z$:60 
TO 780 

835 RESTORE 850:FOR I=1 TO 8:READ MM,MN 

848 MF$=CHR$ (ASC (OB$) + (MM-2) ) +CHR$(ASC (0Z$) + 
(MN-2)):IF Z$=MF$ THEN 280:ELSE NEXT I 

845 GOTO 130 

850 DATA 4,1,4,3,0,1,0,3,3,0,1,0,3,4,1,4 

855 IF ASC(ZB$)<ASC(OB$) THEN 9008 

860 IF ASC(ZZ$)<ASC(0OZ$) THEN 895 

865 FOR I=1 TO 9:MF$=CHR$ (ASC(OB$) +I)+CHR$(A 
SC (02$)+I) 

878 FOR PP=1 TO 64:IF KO$(PP)=MF$ THEN 880:E 
LSE NEXT PP:NEXT I 

875 IF I>=9 THEN 130 

880 IF MF$=2$ THEN 885:ELSE 890 

885 IF DA=1 THEN 920:ELSE 280 

8980 IF RIGHT$(LL$(PP),1)="B" THEN 130:ELSE N 
EXT I 

895 FOR I=1 TO 8:MF$=CHR$(ASC(OB$)+I)+CHR$ (A 
SC (02$)-I) :GOTO: 870 

908 IF ASC(ZZ$)<ASC(OZ$) THEN 910 

905 FOR I=1 TO 8:MF$=CHR$ (ASC (OB$)-I)+CHR$ (A 
SC(02$)+I) :GOTO 870 

918 FOR I=1 TO 8:MF$=CHR$ (ASC (OB$)-I)+CHR$ (A 
SC (02$)-I) :GOTO 878 

915 DA=1:G0TO 765 

920 DA=8:G0OTO 280 

925 IF ZD$="S".THEN 935 

938 RW=1:G0TO 948 

935 RS=1 

948 RESTORE 955:FOR I=1 TO 8:READ MM, MN 

945 MF$=CHR$ (ASC (OB$) + (MM-1) ) +CHR$ (ASC (0Z$) + 
(MN-1)):IF Z$=MF$ THEN 280:ELSE NEXT I 

958 GOTO 130 

955 DATA 0,2, 1,2.2.2,2,1:2.0,1,0,0,0.0.1 

969 Ri$="":R2$="":RO=1:IF ZD$="S" THEN 970 
965 RW=-1:EX=-0:60T0 975 

978 RS=1:EX=56 

975 IF FI$="X" THEN 1055 

980 IF LL$(6+EX)<>"F" OR LL$(7+EX)<S>"F" THEN 
‚RO=8:60TO 985:ELSE 1008 

985 IF ZD$="5" THEN 995 

990 RW=9:G0TO 130 

995 RS=8:60TO 138 

1880 FI=2:G0TO 468 

1005 IF FI$=-"X" THEN 1065 

1018 IF R1$="" THEN R1$=62$:ELSE R2$=G61$:60T 
0 1028 

1015 FI=6:G0TO 469 


. 26 


<95> 
<216> 
<177> 
<252> 
<181> 
<186> 

.<25> 
<179> 
<77> 


<89> 


<189) 
<53> 
<204> 
<59> 
<198> 


<1397 


<282> 
<214> 
<145> 
<16> 

<170> 


<190> 
<165> 


<122> 
<40> 


<60> 


<85> 
<134> 


<19> 
<148> 
<204> 
<40> 
<168> 


<223> 


<166> 
<12> 
<35> 
<255> 


<182> 


<219> 
<254> 


<217> 


<254> 
<156> 
<93> 
<156> 
<182> 
<124> 
5? 


—<71> 


<253> 
<229> 
<56> 
<142> 
<88> 
<24> 


<159> 
<26> 
<174> 
<171> 
<197> 
<66> 


<169> 


<228> 


1020 IF ZD$-"S" THEN 1835 

1025 CHAR 1.13,21,""+F2$:CHAR 1,22,21,""+F1$ 
1030 CHAR 1,16,21,""+R1$:CHAR 1,19,21,"{RVSO 
N} "+R2$:G0TO 1045 

1035 CHAR 1,13,0,""+F1$:CHAR 1,22,0,""+F2$ 
1040 CHAR 1,16.@,"{RUSON}"+R1$:CHAR 1,19,0," 
{RUSOFF} "+R2$ 

1045 LL$ (S+EX)="F" :LL$ (6HEX) -ZDS+H"TB" :LLS7+ 
EX) =ZD$+"KB" :LL$ (8+EX) ="F" 

1050 RO-9:G0TO 395 

1055 -IF LL$(2+EXIC>"F" OR LL$(3+EX)<>"F" OR 
LL$(4+EX)<>"F" THEN RO=0:G0TO 985 

1060 FI=2:G0TO 460 

1865 IF Ri$="" THEN R1$-62$:ELSE R2$=G1$:G0T 
0 1075 

1979 FI=6:60TO 46® 

1075 IF ZD$="S" THEN 1090 

1080 CHAR 1.1,21,""+F2$:CHAR 1,4,21,""+F1$:C 
HAR 1,13,21,""+F2$ 

1085 CHAR 1.7.21," {RUSON)"+R2$:CHAR 1.10,21, 
"{ RUSOFF} "+R1$:GOTO 1100 

1098 CHAR 1,1,0,""+F1$:CHAR 1,4,0,""+F2$:CHA 
R 1,13,0,""+F1$ 

1095 CHAR 1,7,0,"(RUSOFF}"+R2$:CHAR 1,10,0," 
{RVSONY"+R1$ 

1100 LLS(1+EX)="F" :LL$(2+EX)="F":LL$(3+EX)=Z 
D$+"KB" :LL$ (4+EX) =ZD$+"TB" :LL$ (S+EX) =" F" 
1105 RO=0:G0TO 395 

1110 SCNCLR 

1115 IF ZD$="S" THEN NA$="SCHWARZ" :ELSE NA$= 
"WEISS" 

112@ PRINT" { DOWN} " ;NA$; "{SPACEIGAB" - 

1125 PRINT"DIESE( SPACE} PARTIE( SPACE) AUF, " 
1130 END 

1135 SCNCLR 

1148 PRINT" { DOWN}DIESE(SPACE}PARTIE{ SPACE} 1S 
T{ SPACEYMIT{ SPACE} RE-{ SPACEZ)MIS{ SPACE} BEEND 
ET{ SPACEZ}WORDEN, " 

1145 END 

1150 CHAR 1,27,15, ""+CHR$(27)+CHR$ (84) 

1155 TP$=TI$ 

116@ SCNCLR:PRINT"{ BLACK DOWN SPACE3)PAUSE{S 
PACE3} " 

1165 PRINT" ( DOWNYWEITER( SPACEYMIT( SPACE)P" 
1170 GET A$:IF A$="P" THEN 1180:ELSE 1175 
1175 GOTO 1170 

1180 SCNCLR:PRINT" {DOWN SPACE3}ZUG{ SPACE) ??" 
1185 TI$=TP$:GOTO 55 

1198 SCNCLR: PRINT" {DOWN BLACK} BEIDE{SPACE)SP 
IEL-{ SPACEYER{ SPACEYHABEN( SPACE) DAS{ SPACE) ZE 
ITLIMIT{ SPACE4} EINGEHALTEN, " :ZL=1 

1195 PRINT" ( DOWN}WEITER(SPACE)MIT( SPACE)W" 
1200 GET A$:IF A$="W" THEN 35:ELSE 1205 

1205 GOTO 1200 

1210 CHAR 1,27,15, ""+CHR$ (27) +CHR$ (84) 

1215 IF ZD$="S" THEN 1235 

1220 PRINT"{BLACK CLEAR}WEISS{SPACE)}HAT{SPAC 
E4}DIE{ SPACE} BEDENK-( SPACE2}ZEIT{ SPACE} [BER- 
{SPACE3} SCHRITTEN, " 

1225 PRINT" ( DOWN}SCHAWRZ ( SPACE}GE-(SPACEZ}WI 
NNT, " 

1230 END 

1235 PRINT" {BLACK CLEAR)SCHWARZ( SPACE}HAT(SP 
ACE2}DIE{ SPACE} BEDENK-( SPACE2}ZEIT{ SPACE} [BE 
R-{ SPACE3YSCHRITTEN, " 

































































1240 PRINT" { DOWN}WEISS{ SPACE}GE-{ SPACE4}WINN 
2 a 

1245 END 

1250 K=1:G0TO 310 

1255 CHAR 1,27,15,""+CHR$(27)+CHR$ (84) 

1268 IF ZD$=-"S" THEN 1275 


1265 PRINT"{CLEAR RVSOFF DOWN}SCHWARZER{SPAC 
E4}YKOENIG { SPACE}GE-{ SPACE3) SCHLAGEN, " 

1278 GOTO 1240 

1275 PRINT"{ CLEAR RVSOFF DOWN}YWEISSER { SPACE6 
YKOENIG{ SPACEIGE- 1 SEACESFSCHERGEN, n 

1280 GOTO 1225 


"ENDE DES LISTINGS 








<35> 
<68> 


<1787 
<162> 


<113> 


<211> 
<79> 


<142> 


.<£2> 


<8> 
<28> 
<98> 


<245> 
<78> 
<218> 
<46> 


<55> 
<1257 
<66> 


<2377 
<224> 
<28> 
<238> 
<91> 


<132> 
<253> 
<1143 
<£5> 


<185> 
<49> 
<65> 
<229> 
<240> 
<57> 


<201> 
<184> 
<130> 
<234> 
<174> 
<253? 


1497 
<29> 
<82> 
<103> 
<242> 


<972 
<198> 


" <219> 


<90> 


<173>2 
<59> 


<233: 
<87>. 
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Wir 'haben zwar schon: des .öf: 
teren Breakout-Spiele veröf- 
fentlicht, doch dieses hier 
unterscheidet sich entschei- 
dend von den anderen. Hier 
muß man wirklich ausbrechen. 
Ein Level ist nicht wie bei an- 
deren Versionen dann been- 
det, wenn alle Steine getroffen 
wurden, sondern wenn der Ball 
die obere Spielfeldkante er- 
reicht. 2 


Zusätzlich wurde noch ein Edi- 
tor eingebaut, der das Erstellen 
eigener Level erlaubt. Sogar 
das Abspeichern eines Spiels 
mit neuen Leveln ist möglich. 
Leider funktioniert dies aber 
nur auf Kassette. Die neuen 
Level sind so schnell erstellt, 
daß dies kaum eine Einschrän- 
kung 'bedeutet. Gespielt wird 
wie üblich, nur mit dem Unter- 
schied, daß es ein paar Steine 
gibt, die es in sich haben. Ei- 
ner gibt ein Extra-Leben, ein 
anderer beschleunigt und 
wieder ein anderer bremst den 
Ball. 


Weiterhin gibt es einen Stein, 
der mehrmals getroffen werden 
muß. Durch diesen Stein kann 
der Ball aber auch hin- 
durchfliegen! Nach dem Start 


des Programms gelangen Sie 


in ein Menü, das Sie vor die 
folgende Wahl stellt: 


Mit der RETURN-Taste gelan- 
gen Sie in den Editor. Hier sind 


‚die folgenden Tasten wichtig: 


A, Z = Stein auswählen, 
SPACE = Stein ins Spielfeld 
setzen, 
CURSORTASTEN = Position 
des zu setzenden Steins 
wählen, 

CLEAR = Spielfeld löschen, 
HOME = Cursor in die linke 
obere Ecke setzen, 

RETURN = Cursor an den An- 
fang der nächsten Zeile setzen, 
K = angezeigten Level auf 
Bildschirm kopieren, 

S = Programm mit den neuen 
Leveln abspeichern (nur auf 
Kassette), 

Fi = aktuellen Level um 10 


: 3 
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PROGRAMME Eu 







e- 


erhöhen, 

F2 = aktuellen Level um 1 
erhöhen, 

F3 = einen neu entworfenen 
Level ins Spiel übernehmen, 
HELP = Editor verlassen. 


Der Level 00 kann als Puffer 
verwendet werden. 


Bewegen Sie den. Joystick 
nach oben, so wird der Schwie- 
rigkeitsgrad verstellt. Ein Druck 
auf den Feuerknopf startet das 
Spiel. Mit der Taste ”P” wird 
die Pause eingeschaltet. Be- 
wegt man dann den Joystick, 
so geht das Spiel weiter. Für 
jeden bewältigten Level gibt es 
2000 Bonus-Punkte. 99 Level 
sind im Spiel enthalten. 


Das Spiel wurde in Maschinen- 
sprache geschrieben und muß 


legen, 


Das $uperlisting | Breakout-Kit 


| Programmname: 
“| Breakout-Construction-Kit 









Computertyp: C16/116 mit 
6AK-RAM/Plus 4 
Lauffähig: Disk. u. Kass. 
Besonderheiten: 
Breakout-Version mit Editor 
zum Erstellen neuer Level 










er 
Zäi 


daher mit dem MC-Checker, 
den Sie bitte an Adresse 32000 
eingetippt werden. 
Abgespeichert wird mit 
S"BREAKOUT”8(,1),1001,49-. 
00 

Geladen wird es wie ein 
Basic-Programm. Der Start er- 
folgt mit RUN. Wer nur über 
16K-RAM verfügt, kann das 
Programm auch verwenden, 
wobei er aber über einige Level 
weniger verfügt, nämlich nur 
noch über 63 Stück. Dazu 
müssen die folgenden Zeilen 
geändert werden: 


15C8 01 FF 00 00 10 10 63 01 
1608 84 2C A9 2B AO 40 20 D8 


Das Programm wird in diesem 
Fall nur bis $3FF8 eingetippt. 
Die Endadresse im Save- 
Befehl lautet dann 4000. 
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BEE PROGRAMME 


MC-LISTING 


>1901 
>1009 
>1011 
>1019 
>1921 
>1029 
>1031 
>1039 
>1041 
>1049 
>1051 
>1059 
>1061 
>1069 
>1071 
>1079 
>1081 
>1089 
>1091 
>1099 
>19A1 
>10A9 
>10B1 
>10B9 
>10C1 
>10C9 
>18D1 
>10D9 
>1QEI 
>10E9 
>10F1 
>10F9 
>1101 
>1109 
>1191 
>1119 
>1121 
>1129 
>1131 
>1139 
>1141 
>1149 
>1151 
>1159 
>1161 
>1169 
>1171 
>1179 
>1181 
>1189 


>1191° 


>1199 
>11A1 
>11A9 
>11B1 
>11B9 
>11C1 
>11C9 
>11D1 
>11D9 
>11E1 
>11E9 
>11F1 
>11F9 
>1201 
>1209 
>1211 
>1219 
>1221 
>1229 
>1231 
>1239 
>1241 
>1249 
>1251 
>1259 
>1261 
>1269 
>»1271 
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MIT CHECKSUMMEN OVM1® 


60 60 6D 60 6 QD 
60 &B ca 20 38 88:71 
E® EO 00 80 CO 0 ::C9 


00 053 02 83 BI 03 ::12 
00 08 00 00 00 08 ::D2 
02 82 83 DI 08 02 ::15 


>1279 98 
»1281 F6 
>1289 76 
>1291 08 
>1299 08 
>12A1 00 
>12A9 88 
>»12B1 008 
>12B9 0898 
>12C1 088 
>12C9 08 
>12D1 OC 
>12D9 38 
>12E1 CC 
>12E9 OC 
>12F1 08 
>»12F9 C3 
>1301 @C 
>1309 C® 
>»1311 00 
>1319 08 
>1321 008 
>»1329 808 
>1331 008 
>»1339 08 
>1341 08 
»1349 88 
>»1351 008 
>»1359 88 
>1361 C3 
>»1369 BC 
»1371 30 
>1379 18 
>1381 008 
>»1389 08 
>1391 DC 
>1399 Fi 
>13Al 88 
>13A9 008 
>13B1 08 
>13B9 088 
>13C1 88 
>13C9 91 
>13D1 DI 
>13D9 99 
>13E1 99 
>13E9 08 
>13Fi 08 
>13F9 08 
>1401 CO 
>1409 78 
>1411 CC 
>1419 CC 
>1421 08 
>1429 08 
>1431 0® 
>1439 08 
>1441 08 
>1449 008 
>1451 08 
>1459 08 
>»1461 00 
>»1469 08 
>1471 08 


21479 19 


>1481 98 
>1489 OF 
>1491 19 
>»1499 99 
>14A1 80 
>14A9 88 
>»14B1 06 
>1489 61 
>14C1 86 
>14C9 66 
>14D1 66 
>14D9 66 
>14E1 66 
>14E9 08 
>14F1 08 
>I4F9 08 
>1501 08 
>1509 08 
>»1511 08 


>1519 
>1521 
>1529 
>1,531 
>1539 


>1541° 


>1549 
1551 
»1559 
>1561 
>1569 
>1571 
>»1579 
>1581 
>1589 
>1591 
>1599 
>15A1 
>15A9 
>15B1 
>15B9 
>15C1 
>15C9 
>15D1 
>15D9 
>15E1 
>15E9 
>15F1 
>15F9 
>1681 
>1609 
>1611 
>1619 
>1621 
>1629 
>1631 
>1639 
>1641 
>1649 
>1651 
>1659 
>1661 
>1669 
>1671 
>1679 
>1681 
>1689 


>1691 ; 


>1699 
>16A1 
»16A9 
>16B1 
>16B9 
>16C1 
>16C9 
>16D1 
>16D9 
>1I6E1 
>16E9 
>16F1 
>16F9 
>1701 
>1709 
>1711 
>1719 
>1721 
>1729 
>1731 


. >1739 


>1741 
>1749 
>1751 
>»1759 
>1761 
>1769 
>1771 
>1779 
>1781 
>1789 
>1791 
>»1799 
>17A1 
>17A9 
>17B1 


78 088 7E ::0C 
ZE ;00 36: ;E2 
5C 08 3C ::76 
3C 08 3C ::F6 
5C 08 66 ::EC 
66 08 08 ::5C 
00 00 00 ::5E 
08 00 08 ::66 
00 08 08 ::6E 
00 08. 00 ::76 
08 0 08- : :BE 
80 FF 04 ::34 
FF 84 82 ::B6 
02 82 FF ::C2 
81 81 22 :: IC 
00 00 AY ::@® 
00 00 08 ::DB 
00 08 00 ::B6 
08 08 00 ::BE 
00 080 08 ::C6 
08 08 008 ::CE 
00. 08 ®1 ::DE 
99 @B 47 ::88 
08 00 288 ::C® 
10 17 42 :;7D 
4F 55 54 ::2E 
00 80 AY ::46 
20 BA FF 296 
15 20 BD ::95 
AB 10 84 ::9C 
20 D8 FF ::AB 
EA EA AD ::6F 
06 FF 4C ::A8 
00 80 00 ::51 
00 00 00 ::3F 
00 00 08 ::47 
00 08 AD ::B7 
AD CD 15 ::D6 
15 DO FB ::F6 
68 CE 92 ::88 


DO 84 AQ D3 
DO 04 A9 ::BA 
DO 04 AQ ::B7 
85 DO A9 ::DF 
8D 98 16° ::23 
DO 9D 10 ::49 
E8 EB EB ::88 
16 C8 CO ::C4 
12 1D 08 ::5D 
D® F4 CE ::42 
06 8D 93 ::CC 
08 DO 86 :: 1A 
2C C9 01 ::C2 
8f 30 22 ::CF 
14 AB 4F ::BE 
06 EE CF ::CC 
48 B9 OF ::EC 
D® F7 .4C ::64 
DO A2 08 ::Bi 
DO FB AB ::BF 
OA 85 D3 ::1E 
01 85 D2 ::6F 
D3 A5 D3 ::A8 
EB 88 CA ::DI 
DB AB 48 ::64 
88 D® F8 ::E® 
EA AD CF AA 
A9 00 AQ® ::98 
CO 48 DO ::AA 
18 DO 9F ::2D 
AB 08 BY ::ED 
Cc8 CO 48 ::EB 
EA EA A2 ::5E 
c9 08 DO ::3F 
EA EA 91 FD 
4C F8 16 FC 
EA EA CO ::38 
6B 86 AY ;:Q@F 
4E 28 D2 OE 
17 99 11. 3:sFF 
8B 8D 00 ::85. 
oc Ag 88 ::1 
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>1789.8D CO 
>17C1 AD 26 
>17C9 CO OF 
>17D1 D4 A9 
-.>17D9 D6 A2 
>17E1 91 D4 
>17E9 91 D4 
>17F1 E8 CO 
>17F9 69 28 
>1801 C6 D6 
>1809 OF A9 
>1811 A9 FF 
>1819 AQ 28 
>»1821 FB 18 
>1829 98-02 
>1831 45 85 
>1839 17 86 
>1841 4E 19 
>1849 DO F5 
>1851 D4 98 
>1859 E4 A9 
>1861 8D 17 
>1869 7C 7C 
>1871 7D 82 
>1879 27 28 
>1881 2D 2E 
>1889 35 34 
>1891 39 3A 
>1899 7E 81 
>18A1 80. 80 
>18A9 5F 5F 
>1881 84 84 
>18B89 OA 0B 
>18C1 86 89 
>18C9 88 88 
>18D1 5F 5F 
>18D9 84 84 
>»18E1 20 20 
>18E9 86 8A 
>18F1 16 17 
>18F9 88 88 
>1901 5F 5F 
>1909 84 84 
>1911 85 8A 
>1919 08 88 
>1921 88 88 
»1929 5F 5F 
21931 84 84 
>1959 85 8A 
>1941 20 04 
: >1949 88 88 
>1951 08 0808 
>1959 00 00 
>1961 08 00 
>1969 88 08 
>1971 00 88 
>1979 08 808 
>1981 DO 08 
>1989 00 98 
>1991 00 08 
>1999 08 88 
>19Al 43 43 
>19A9 00 08 
>1981 08 08 
>19B9 08 00 
>19C1 00 098 


>19C9 44 44 44 


>19D1 44 44 
>19D9 00 08 
>19E1 00 08 
>19E9 00 00 
>19F1 00 08 
>19F9 77 77 
>1ABI 00 08 
>1A09 00 90 
>1A1I 00 08 
>1A19 00 08 
>1A21 61 61 
>1A29 00 02 
»1A31 08 08 
>1A39 00 20 
>1A41 A2 91 
>1A49 68 BD 
>1A51 
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>1A59 
>1A61 
>1A69 
>1A71 
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>1A81 
>1A89 
>1A91 
>1A99 
>1AA1 
>1AA9 
>1ABI 
>1AB9 
>1AC1 
>1AC9 
>1AD1 
>1AD9 
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>1AE9 
>1AF1 
>1AF9 
>1B01 
>1B09 
>1B11 
>1B19 
>1B21 
>1829 
>1B31 
>1B39 
>1B41 
>1B49 
>1851 
>1B59 
>1B61 
>1B69 
>1B71 
>1B79 
>1B81 
>1B89 
>1891 
>1B99 
>1BA1 
>1BA9 
>1BB1 
>1BB9 
>1BC1 
>18C9 
>1BD1 
>18D9 
>1BEI 
>1BEI 
>1BF1 
>1BF9 
>1C01 
>1C09 
>1C11 
>1C19 
>1C21 
>1C29 
>1C31 
>1C39 
>1C41 
>1C49 
>1C51 
>1C59 
>1C61 
>1C69 
>1C71 
>1C79 
>1C81 
>1C89 
>1C91 
>1C99 
>1CAI 
>1CA9 
>1CB1 
>1CB9 
>1CC1 
>1CC9 
>1CD1 
>1CD9 
>1ICEI 
>1CE9 
>ICF1 
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>ICF9 
>1D01 
>1D09 
>1D11 
>1D19 
>1D21 
>1D29 
>1D31 
>1D39 
>1D41 
>1D49 
>1D51 
»1D59 
»1D61 
>1D69 
1071 
>1D79 
>1D81 


>1D89 


>1091 
>1D99 
>1DAI 
>1DA9I 
>1DB1 
>1DB9 
>1DC1 
>1DC9 
>1DD1 
>1DD9 
>1DEI 
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>1E31 
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>IE41 
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>1E51 
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>1E61 
>1E69 
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>1E79 
>1E81 
>1E89 
>1E91 
>1E99 
>1EAI 
>1EAY 
>1EB1 
>1EB9 
>1ECI 
>1ECY9 
>1EDI 
>1ED9 
>1EEI 
>1EE9 
>1EFI 
>1EF9 
>1F01 
>1F09 
>IF11 
>1F19 
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>1F39 
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>2061 
>2069 
>»2071 
>2079 
>2081 
>2089 
>2091 
>2099 
>20A1 
>20A9 
>20B1 
>»2089 
>20C1 
>20C9 
>20D1 
>20D9 
>20E1 
>20E9 
>20F1 
>20F9 
>2101 
>21909 
>2111 
>2119 
»2121 
>2129 
>2131 
>2139 
>2141 
>2149 
>2151 
>2159 
>2161 
>2169 
>2171 
»2179 
>2181 
>2189 
>2191 
>2199 
>21A1 
>21A9 
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>21C9 
>21D1 
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>21E9 
>21F1 
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>2211 
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>22D9 
>22E1 
>22E9 
>22F1 
>22F9 
>2301 
>2309 
>2311 
>2319 
»2321 
>2329 
>»2331 
>2339 
>2341 
>2349 
»2351 
>»2359 
»2361 
>2369 
»2371 
>»2379 
>2381 
>2389 
>2391 
>2399 
>23A1 
>23A9 
>23B1 
>23B9 
>23C1 
>23C9 
>23D1 
>23D9 
>23E1 
>»23E9 
>23F1 
>23F9 
>2491 
>2409 
>2411 
>2419 
>2421 
>2429 


" >2431 


>»2439 
>2441 
>2449 
>2451 
>2459 
>2461 
>2469 
>2471 
>»2479 
>2481 
>2489 
>2491 
>2499 
>24 A1 
>24A9 
>24B1 
>24B9 
>24C1 
>24C9 
>24D1 
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>24D9 


>24E1 
>24E9 
>24F1 
>24F9 
>2501 
>»2509 
>2511 
>2519 
>»2521 
>»2529 
>2531 
»2539 
>2541 
>2549 
>»2551 
>»2559 
»2561 
>»2569 
>2571 
>»2579 
>2581 
22589 
:259) 
>2599 
>25A1 
>25A9 
>25B1 
>25B9 
>»25C1 
>25C9 
>25D1 
>»25D9 
>25E1 
>25E9 
>25F1 
>25F9 
>2601 
>2609 
>2611 
>2619 
>2621 
>2629 
>2631 
>2639 
>2641 
>2649 
>2651 
>2659 


. »2661, 


>2669 
>2671 
>2679 
>2681 
>2689 
>2691 
>»2699 
>26A1 
>26A9 
>26B1 
>26B9 
>26C1 
>26C9 
>26D1 
>26D9 
>26E1 
>26E9 
>26F1 
>26F9 
>2701 
>2709 
>2711 
>2719 
>2721 
>2729 
>2731 
>2739 
>2741 
>»2749 


»2751. 


>»2759 
>2761 
>2769 
>»2771 


BF 


B4 B4 AB ::F5 
B4 B4 2A ::3A 
2D 2D 2A ::91 
2E 2F AA ::73 
AA F5S AA ::1B 
B4 B4 AB ::42 
B4 B4 AB ::26 
B4 B4 AB ::2E 
B4 B4 AA ::46 
BA BF Aß ::D3 
AB F4 AA ::1A 
BA BF AB ::E3 
B4 F4 BF ::CE 
BF 55 F4 ::C9 
F4 55 BF ::05 
B4 54 F4 ::3B 
B4 54 B4 ::F6 
B4 54 2D ::06 
2D 15 2F :;52 
2F 15 FD ::E4 
FD 55 B4 ::75 
BF 55 B4 ::F6 
Fa 54. Rh .3:26 
07 01 B4 ::5A 
10 08 BF ::36 
BF 55 F4 ::17 
F4 54 BF ::8A 
B4 54 F4 ::9A 
B4 54 AA ::1A 
95 55 7C ::9E 
7C 08 08 ::2C 
00 08 08 ::FE 
00 00 09 ::06 
00 08 08 ::QE 
00 00 08 ::16 
00 08 A2 ::2E 
20 70 1A ::EF 
1A E8 AQ ::8D 
84 25 AB ::65 
4A 4A UA ::69 
20 78 1A ::8C 
BI AB 15 ::7F 
25 20 70 ::2C 
Cc8 CO 94 ::44 
65 20 A3 ::08 
F8 60 20 ::59 
AD 9C 15 ::D9 
AD 9D 15 ::84 
AD 9E 15 ::6D 
AD 9F 15 ::56 
98 2D AD ::B6 
9F 15 88 ::C4 
91 15 20 ::26 
A7 26 99 ::9A 
E6 09 88 ::2A 
c9 81 DO ::57 
00 00 6D ::A4 
67 68 72 ::7D 
20 08 AY ::A® 
CD 15 4C ::43 
40 C7 2B ::11 
0D 08 @80 ::EF 
00 00 00 .::F7 
00 08 08 ::FF 
00 08 08 ::07 
00 08 08 ::OF 
00 08 08 ::17 
00 08 A9 ::67 
8D 11 FF ::23 
02 85 25 ::CC 
A5 25 8D ::4C 
DO FD.EA ::91 
02 E6 25 ::D6 
E2-A5 25. 2:5F 
24 8D OF. ::6B 
FF AB 68 ::36 


EA C6 24 ::C7 
24 09 BR ::7A 


02 D® DC ::18 
DO Ad 68 ::23 
FF 4C 27 ::26 
00 88 CE ::2D 
60 EA EA ::78 
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>»2779 EA EA 
>2781 19 FF 
>»2789 19 FF 
>2791 FD 88 
»2799 19 FF 
>27A1 CE 15 
>27A9 03 4C 
»27B1 09 89 
>»27B9 89 09 
>27C1 09 89 
>27C9 1 
>27D1 1 
>2709 1 
>27E1 1 
>27E9 1 
>»27F1 1 
>27F9 1 
>2801 A 
>2809 1 
>2811 8D 
»2819 20 79 
>»2821 FO 14 
>2829 2F 28 
>2831 4C 36 
>2839 15 C9 
»2841 98 2C 
>2849 8D CC 
>2851 4C IC 
>»2859 10 8D 
>2861 15 4C 
>2869 AI OC 
>2871 CD 15 
>2879. A2 08 
>»2881 DO FA 
>2889 8E 69 
>2891 E8 8E 
>2899 A9 B4 
>28Al AY 99 
>28A9 97 15 
>28B1 04 9D 
>28B9 @1 8D 
»28C1 EA EA 


»28F1 1A 88 
>28F9 AY 19 
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SFfvvvvvvmnm 


>2AB9 4C 98 2B 2 


>2Al1 20 48 
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“on... 
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un 00 00 00 00 #0 ne dr 00 00 nn mn 00 00 00 00 on 


>2A19 EA 28 
>2A21 1A’ 
>2A29 1A C8 
>2A31 1A CA 
>2A39 EA 00 
>2A41 A9Y 20 
>2A49 83 4C 
>2A51 4C EC 
>2A59 20 8B 
»2A61 20 8B 
»2A69 EB 20 
>»2A71 DO 31 
>2A79 8D C8 
>»2A81 05 AY 
>»2A89 27 AE 
>2A91 AY 91 
>2A99 1B DO 
>2AA1 4C EF 
>2AAQ EA EA 
>2AB1 15 20 
>2AB9 9A 15 
>2ACI 8D C8 
>2AC9 03 8E 
>2ADI 15 AA 
>2AD9 15 AE 
>2AE1 15 AB 
>2AE9 05 AB 
>2AF1 15 18 
>2AF9 AA AD 
>2B01 8D 9A 
>2809 28 DO 
>2B11 2C AD 
»2819 8D D9 
>2B21 15 AD 
»2B29 21 8D 
>»2B31 8B 1A 
»2B39 1A 2A 
>»2B41 01 20 
»2B49 EY 06 
>2851 C9 4D 
>»2B59 2B AD 
»2B61 CC 15 
>»2B69 AD CC 
»2B71 15 8D 
>2879 32 AD 
>2B81 OF EE 
>2B89 02 8D 
»2B91 53 FO 
»2B99:55 FO 
>»2BA1 5A FO 
>2BA9 CA CA 
>»2BB1 15 A9 
>2BB9 20 70 
>2BC1 CE D8 
>2BC9 15 
>»2BD1 A2 14 
>2BD9 AD 96 
>»2BE1 6D 97 
>2BE9 4C 19 
»2BF1 15 C9 
>2BF9 97 15 
»2C01 A9 91 
>2C09 C9 15 
>»2C11 68 
>2C19 8E DE 
>2C21 1 
>2C29 1 
»26311 
>2C39 1 
>»2C41 1 
>2C49 4A 4A 
>2C51 BD IC 
»2C59 ES C8 
>2C61 85 80 
»2C69 85 7F 
»2C71 2D AE 
>»2C79 D8 68 
»2C81 A9 20 
>2C89 20 4C 
»2C91 91 15 
>2C99 CA 15 
>2CA1 AD 91 
>2CA9 9D 9E 
>2CB1 A3 A4 
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PROGRAMME 


>»2CB9 AB 


>2CC1 B1. 


>2CC9 2® 
>2CD1 BD 
>2CD9 20 
»2CE1 B2 
>2CE9 D® 
>2CF1 15 
»2CF9 15 
»2001 98 
>2D09 CD 
>2D11 FO 
>2019 20 
»2D21 38 
»2D29 8D 
2031 AQ 


>2D39 91 
>2D41 8C 
>2D49 A5 
>2D51 11 
>2D59 BI 
>2D61 208 
>2D69 B9 
>»2D71 20 
>2079 20 
>2D81 208 
>2D89 20 
»2091 20 
>2D99 28 
>2DAI B9 
>2DA9 29 
>2DB1 BI 
>2DB9 28 
>2DC1 28 
>2DC9 28 
>2DD1 29 
>2DD9 208 
>2DEI 28 
>2DE9 B9 
>2DFi1 28 
>2DF9 20 
>»2ED1 20 
>2E09 20 
>2E11 20 
>2E19 20 
>2E21 20 
>2E29 BI 
>2E31 29 
>2E39 208 
»2E41 B9 
>2E49 20 
>»2E51 20 
>2E59 BI 
>2E61 20 
>2E69. 20 
>2E71 B9 
>2E79 28 
>2E81 20 
>2E89 B9 
>2E91 20 
>2E99 20 
>2EA1 B9 
>2EA9 208 
»2EB1 20 
>2EB9 BY 
»2EC1 508 
>2EC9 2D 
»2EDI 57 
>2ED9 2D 
>2EEI E6 
>2EE9 CO 
>2EF1 BD 
>2EF9 20 
»2F01 58 
>»2F09 61 
>2F11 72 
>2F19 20 
»2F21 208 


»2F29 F6 


>2F31 IC 
»2F39 4C 
>2F41 03 
>»2F49 A5 
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BEE PROGRAMME 


>2F51 
>2F59 
»2F61 
>2F69 
>2F71 
>2F79 
>2F81 
>2F89 
>2F91 
>2F99 
>2FAI 
>2FAg 
>2FB1 
>2FB9 
>2FC1 
>2FC9 
>2FD1 
>2FD9 
>2FEI 
>2FE9 
>2FF1 
>2FF9 
>3001 
>3009 
>3011 
>3019 
>3021. 
>3029 
>»3031 
>3039- 
>3041 
>3049 
»3051 
>3059 
>3061 
>3069 
>3071 
>3079 
>3081 
>3089 
>3091 
>39099 
. >3QA1 
>30A9 
>30B1 
>30B9 
>30C1 
>30C9 
>30D1 
>30D9 
>30E1 
>30E9 
>30F1 
>30F9 
>3101 
>3109 
>3111 
>3119 
>3121 
>»3129 
>3131 
>3139 
>3141 
>3149 
>3151 
>»3159 
= 33161 
>3169 
>»3171 
>»3179 
>3181 
>3189 
>3191 
>3199 
>31A1 
>31A9 
- »31B1 
>31B9 
>31C1 
>31C9 
>31D1 
>31D9 
>31E1 
>31E9 


32 


29 
A5 
25 
c8 
F8 
A5 
DO 
Ag 
37 
85 
E4 
86 
80 
7E 
AO 
B8 
c5 
EA 
EA 
2C 
02 
ca 
41 
00 
00 
08 
41 
41 
00 
FF 
rl 
u 
08 
08 
00 
00 
00 
00 


41 


41 


08 


>31F1 
>31F9 
>3201 
>3209 
>3211 
>3219 
>3221 
>3229 
»3231 
>3239 
>3241 
>3249 


- »3251 


>»3259 
>3261 
>3269 
>»3271 
>3279 
>3281 
>3289 
»3291 
>3299 
>32A1 
>32A9 
>32B1 
>32B9 
>32C1 
>32C9 
>32D1 
>32D9 
>32E1 
>32E9 
>32F1 
>32F9 
>3301 
>3309 
>3311 
>3319 
>3321 
>3329 
>3331 
>3339 
>3341 
>3349 
>335] 
>»3359 
>3361 
>3369 
»3371 
>»3379 
>3381 
>3389 
»3391 
>3399 
>33A1 
>33A9 
>33B1 
>33B9 
>33C1 
>33C9 
>33D1 
>33D9 
>33E1 


>33E9 


>33F1 
>33F9 
>3401 
>3409 
>3411 
>3419 
>3421 
>3429 
>3431 
>3439 
>3441 
>3449 
>3451 
>3459 
>3461 
>»3469 
>3471 
>»3479 
>3481 
>3489 


>3491 
>3499 


>34A1 


>34A9 
>34B1 
>34B9 
>34C1 
> 
33467 
>34D9 
>34E1 
>34E9 
>34F1 
>34F9 
>3591 
>3509 
>3511 
>»3519 
>3521 
>3529 
»3531 
>3539 
>3541 
3549 
>3551 
3559 
>3561 
>3569 
>3571 
>3579 
>3581 
>»3589 
>3591 
>»3599 
>35A1 
>35A9 
>35B1 
>35B9 
>35C1 
>35C9 
>35D1 
>35D9 
>35E1 
>35E9 
>35F1 
>35F9 
>3601 
>3609 
>3611 
>3619 
>3621 
>»3629 
>3631 
>3639 
>3641 


>3649. 


>»3651 
>3659 
>3661 
>3669 
>3671 
>3679 
>3681 
>3689 
>3691 
>3699 
>36A1 
>36A9 
>36B1 
>36B9 
>36C1 
>36C9 
>36D1 
>36D9 
>36E1 
>36E9 
>36F1 
>36F9 
>3701 
>3709 
>3711 
»3719 


>»3721 ® 


>»3729 


00 9008 


41 47 41 ::AF 
41 41 08 ::3C 
41 00 BB ::2E 
00 08 00 ::2E 
00 00 41 E5 


00 08 41 ::A3 
00 28 00 ::25 
00 00 00 ::AB 
00 08 4iI ::35 
41 41 41 2:5A 
41 08 88 ::6C 
53 47 00 ::4F 
41 47 41 ::12 
41 41 41 ::B7 
00 00 Q0 ::E8 
00 00 08 ::66 
08 00 00 ::6E 
002. 08 00 ::76 
41 41 41 ::A2 
00 00 00 ::49 
47 47 47 ::EF 
00 00 00 ::20 
41 41 41 ::3C 
00 08 00 ::75 
00 28 00 ::AE 
41 00 08 ::CA 
41 41 41° ::A1 
47 47 41 2215 
47 47 47 ::70 
41 41 41 ::F6 
08 41 41 2:33 
00 08 09 ::6C 
08 08 59 ::B6 
59 08 59 ::EA 
417 08 41 ::12 
47 08 47 ::92 
41 00 41 ::2E 
47 00 47 ::96 
41 08 41 ::56 
00 08 90 ::AC 
00:00 47 2:66 
47 47 47 ::33 
41 41 41 ::22 
47 47 47 ::99 
41 41 41 A4 
00 08 47 ::93 
41 08 08 ::2E 
02 00 00 ::BO 
00 08 47 ::A7 
00 08 47 ::BB 
41 41 08 ::F6 
47 47 41:::54 
47 47 47 s:EC 
41 41 47 ::DF 
08 08 41 ::CD 
00 00 08 ::CD 
00 08 08 ::AF 
41 41 088 ::D3 
00 00 41 ::CF 
47 41 41 ::4C 
41.47 41 ::D8 
00 08 41 ::2C 
41 41 41 ::FB 
00 00 00 ::71' 
00 00 47 ::27 
47 47 47 ::F3 
59 41 59 ::03 
41 41 41 ::A9 
41 47 41 ::32 
08 41 41 ::2D 
00 00 00 ::68 
00 00 00 ::6E 
00 00 4D ::97 
41 47 4D ::EO 
08 00 41 ::74 
008 47 00 ::65 
47 00 47 ::77 
00 08 47 ::B4 
47 41 08 ::31 

C16-SA 5/88° 


PROGRAMME EEE 


: >3731:. 00 08 41 47 4D O0 00 08 ::C8 >39D1 47 47 47 4D 47 47 47 47 ::1E »3C71 00 00 00 00 00 00 00 QO ::AD 
>3739 00 00 OD 00 00 00 QD 41 ::78 >39D9 47 47 00 00 00 00 00 08 ::E7 >3C79 00 00 DD 00 00 00 0D 08 : 
>3741 00 41 0 41 QO 41 00 41 ::8C >39E1 00 00 OD 4D 47 47 4D 47 ::AE >3C81 47 47 47 00 47 47 47 00 ::65 
>3749 00 41 00 47 47 47 00 41. ::33 >39E9 47 47 47 4D 41 41 41 41 2::9A >3C89 00 47 00 00 00 47 00 47 ::35 
>3751 00 41 08 41 47 00 47 41 ::6A >39F1 41 41 41 41 47 00 00 00 ::17 »3C91 00 00 47 47 53 00 47 00 ::4E 
»3759 08 41 00 41 00 47 08 47 ::F8 >39F9 00 00 QD 00 00 OD 0Q 00 ::32 >3C99 47 00 00 00 00 47 00 47 ::FE 
>3761 00 41 00 41 00 41 47 47 ::CD >3A01 00 00 00 00 08 00 00 08 ::3B >3CAl 00 47 08 00 47 47 47 00 ::69 
>3769 47 41 00 41 00 41 00 41 ::FB »3AQ9 00 47 00 47 00 47 47 47 ::CQ >3CA9 47 47 47 00 00 00 08 00 ::8F 
»3771 00 41 00 41.00.00 00 00 ::2E >3A11 00 00 41 00 41 00 41 00 ::1A »3CB1 00 00 00 00 208 00 00 00 ::ED 
»3779 00 00 00 00 00 08 00 41 ::B8 >3A19 41 00 QD 47 47 53 QD 47 ::3D >3CB9 00 00 QD 00 00 DD QD 00 ::F5 
>3781 41 41:00 41 41 41 00 47 ::82 >3A21 00 47 00 00 00 00 41 00 ::BD >3CC1 00 00 00 00 00 OD 0D 80 ::FD 
>»3789 00 00 41 00 41 OD 41 08 ::8F »3A29 41 00 41 00 00 00 00 47 ::9F >3CC9 41 59 59 59 59 59 59 59 ::71 
>3791 47 00 55 41 00 41 00 41 ::9A »3A31 OD 47 47 47 00 00 00 00 ::EA >3CD1 41 41 41 41 41 41 41 41 ::31 
>3799 00 47 00 OD 41 00 41 00 ::6A >3A39. 08 00 OD QO 08 00 OD 00 ::73 >3CD9 41 41 41 47 47 47 47 47 ::ED 
>37A1 41 00 47 41 41 41 00 41 ::C5 >3A41 00 00 00 00 00 00 00 00 ::7B >3CE1-47 47 41 41 47.47 47 47 ::EF 
»37A9 41 41 00 47 00 00 00 00 ::BF >3A49 47 59 47 59 47 59 47 59 ::E7 .>3CE9 47 47 47 41 41 59 59 59 ::65 
»37B1 00 00 00 00 OD OD 00 OD ::E8 »3A51 47 47 59.47 59 47 59 47 ::95 >3CF1 59 59. 59 59 41 00 00 00 ::EC 
»37B9 00 08 00 00 OD DD 08 AD ::58 >3A59 59 47 47 59 47 59 47 59 ::65 >3CF9 00 00 OD 00 00 OO DD 41 ::3D 
>37C1 59 59 59 59 59 59 59 4D ::IC »3A61 47 59 47 47 59 47 59 47 ::93 | >3D01 47 41 47 41 47 41 47 41 ::C2 
>37C9 41 41 41 41 47 41 41 4D ::A2 >3A69 59 47 59 47 00 00 00 08 ::Bi >3D09 47 41 47 41 47 41 47 41 ::CA 
»37D1 41 00 47 00 00 08 41 00 ::E5 >3A71 00 00 00 00 00 OD OD 00 ::AB >3D11 47 41 47 41 47 41 47 41 ::D2 
»3709 00 47 OD 00 08 4D 00 00 ::6C »3A79 00 00 00 00 00 08 08 59 ::7B >3D19 47 41 47 41 47 41 47 41 ::DA 


>37E1 08 4D 00 41 41 41 41 41 ::50 >3A81 47 59 47 59 47 59 47 59 :: IF >3D21 47 41 47 41 47 41 47 41 ::E2 
>37E9 41 41 41 41 41 41 47 41 ::6E >3AB9 47 00 47 00 47 00 47 00 ::33 >3D29 47 41 47 41 47 41 47 41 ::EA 
>37F1 41 41 41 41 47 08 00 00 ::15 >3A91 47 59 47 59 47 59 47 59 ::2F >3D31 47 41 47 41 47 00 00 00 ::73 
»37F9 00 00 00 00 00 00 00 47 ::68 >3A99 47 59 47 08 47 00 47 08 ::F5 >3D39 00 00 00 02 00 00 08 41 ::7E 
»3801 41 41 00 00 00 41 41 47 ::81 >3AAl 47 00 47 59 47 59 47 59 ::8D >3D41 4 4 41 41 41 41 41 41 ::A2 


>3809 41 00 00 41 41 41 00 00 .::51 >3AA9 47 59 47 59 47 00 47 08 ::69 >3D49 4 41 41 4 41 41 41 41 ::AA 


>3811 41 00 00 00 00 47 00 00 ::54 >3ABl 47 00 47 00 47 00 OD 00 ::6A >3D51 41 41 41 59 59 59 59 59 ::82 
>3819 00 00 Q0B 00 OD 00 47 00 ::42 >3AB9 00 00 00 00 00 00 00 47 : >3D59 41 41 41 41 59 08 08 00 ::DD 
»3821 00 00 00 41 Q0D 00 41 41 ::2C >3AC1 41 47 41 41 41 47 41 47 ::7F >3D61 59 41 41 40 41 59 00 47 ::03 


»3829 41 00 08 41 47 41 41 08 
>»3851 80 0B 41.41 47 00 00 00 
»3839 DD 08 OB DD OD QB DD 0D 
»3841 47 00 47 00 47 00 47 00 


>3AC9 41 41 47 41 47 41 47 41 ::81 >3069 08 59 41 4D 47 41 59 00 ::A7 
:93 >3ADI 41 47 47 00 47 08 47 08 ::03 >3D71 47 00 59 41 47 00 08 08 ::67 
71 >3AD9 47 47 47 47 00 47 00 47 ::BB >3D79 80 00 00 00 00 00 80 59 ::7E 
:E9 >3AEI 00 47 47 00 00 47 00 47 ::60 >3D81 59 59 59 59/59 59 59 59 542 


n 
o 


81] 
© 


»3889 41 00 00 00 00 BD 00 DD 
>3891 41 47 08 4D 08 4D 90 AD 


>3849 41 00 41 00 41 0D.41 00 ::91 >3AE9 00 47 00 00 47 00 47 00 ::05 3089 59 41 41 41 47 41 41 41 ::20 
>3851 41 00 47 00 47 08 47 00 .::F3 >3AFi1 00 00 47 00 47 00 00 00 ::63 >3091. 59 59 41 00 00 00 00 08 ::9C 
>3859 47 08 41 00.41 00 41 08 ::A7 »3AF9 00 00 00 00 08 00 00 47 ::6B >3D99 41 59 59 41 00 41 41 41 ::2D 
>3861 41 08 41 08 47 09 47 08 ::Fi >3B01 47 47 41 00 41 47 47 47 ::EC >3DAl 00 41 59 59 41 Q0 41 47 ::13 
>3869 47 00 47 OD 41 00 41 OD ::C9 >3809 47 00 47 41 00 41 00 47 ::22 >3DA9 41 OB 41 59 59 41 08 41 ::99 
»3871 41 00 41 00 41 08 00 08 ::F2 >3B11 00 47 00 47 41 00 41 00 ::02 >3DB1 41 41 00 41 59 00 08 90 ::72 
»3879 00 OD 00 DO 00 00 08 47 ::E9 >3819 47 00 47 00 47 41 08 41 ::61 >3DB9 00 00 00 02D OR 20 08 00 ::F6 
>3881 41 47 41 47 41 47 4 47 »3821 00 47 00 47 00 47 41 00 ::77 >3DC1 00 00 00 20 00 00 00 80 ::FE 


81] 
1517 


:02 | >»3829 41 Q0 47 00 47 47 47 00 ::78 »30C9 59 59 59 59 59 59 59 5 
:02 3831 41 00 00 47 00 00 00 @® ::C9 | >30D1 59 AD 47 AD 47 AD 47 AD ::94 


>3899 QD 47 41 OD 4D OB 4D 00 ::BE >3B39 00 00 00 OD 00 08 00 59 ::3C >3DD9 47 4D 41 47 41 47 41 47 ::C4 
>38A1 4D OB 41 47 aD 00 00 08 ::05 »3B41 59 59 59 59 59 59 59 59 ::00 >3DEI 41 47 41 41 47 41 47 41 ::96 
>38A9 00 00 08 47 59 47 59 47 ::0B >3B49 47 00 47 00 47 00 47 00 ::F4 >3DE9 47 41 47 41 00 47 41 47 ::71 
»38B1 59 47 59 47 59 00 00 00 ::B4 >3851.47 00 47 00 47 00.47 00 ::FC >3DFi 41 47 41 47 00 08 00 00 ::DC 
»38B9 00 00 00 00 00 00 QD 47 ::29 >3859 47 00 41 41 4D 41 4D 41 ::CC »3DF9 00 00 OD 00 00 00 OD 41 ::3E 


>38C1 47 47 47 47 47 47 47 U7 2:5 >3861 4D 41 41 00 47 00 47 00 ::82 >3E01 41 41 41 41 41 41 41 41 ::65 


>38C9 47 08 41 41 41 41 41 08 Eial >3B69 47 0D 47 00 47 08 47 88 ::14 »3E09 59 59 59 59 59 59 59 59 ::CB 
>58D1 47 47 41 00 47 00 47 00 ::F5 >3B71 47 00 47 00 47 00 00 OD ::2B >3E11 59 47 47 47 47 47 47 47 ::5D 
>38D9 41 47 47 41 4D 00 47 00 ::2B >3879 00 00 00 00 80 00 08 59 ::7C >»3E19 47 47 59 59 59 59 59 59 ::A5 


8 | BERNER 
> 47 47 47 47 47 47 47 ::C0 >3 1 .: 
3A 3391 2 4 “ 47 47 47 47 47 :: »3E31 00 00 00 00 00 QD 00 00 ::6F 
>38F9 00 00 00 OD 00 00 00 59 ::F9 >3B99 41 41 08 41 41 47 47 47 ::B3 »3E59 00 OD DD DD Do Du au 59 ns 
>3901 59 59 59 59 59 59 59 59 ::BE >3BA1 41 41 00 00 00 41 41 47 ::24 >3E41 41 59 41 59 41 59 41 59 ::8 
>3909 41 00 47 00 41 00 47 00 ::BE >3BA9 41 41 00 QQ 4D Q0D QQ 41 ::30 >3E49 41 59 41 59 41 59 41 59 ::8B 
>3911 41 41 00 00 47 00 47 00 ::61 BB] a a 2 ” ” a a u we n 22 Fe = a „N en 
>3919 00 41 41 00 00 OD 47 00 ::88 >3BB 2: 5 
>3921 00 00 41 41 00 00 47 08 ::12 >3BCI 41 4 41 41 41 41 41 41 ::20 >3E61 41 47 41 00 41 00 41 00 ::5D 
>3929 47 00 00 41 41 00 47 00 :: >3BC9 41 00 47 47 47 47 47 00 ::34 »3E69 41 00 41 00 002 00 OD 00 ::AB 
>3931 41 00 47 00 41 00 00 00 ::C5 »3BD1 41 41 00 00 41 47 41 00 ::85 »3E71 00 00 00 00 00 00 QD 00 ::AF 
>3939 0D 00 00 00 QO OD 08 41 ::7A >3BD9 00 41 41 00 00 41 47 41 ::D8 »3E79 00 00 00 00 00 00 00 41 ::BF 
»3941 59 41 59 41 59 41 59 41 sc: 1E >3BEI BO 00 41 41 00 47 47 47 ::B6 >3E81 41 41 41 41 41 41 41 41 ::E3 
>3949 00 41 47 41 47 41 47 41 ::BE >3BE9.47 47 00 41 41 41 41 41 ::97 | . »3689 41 59 59 59 59 59 59 59 ;:33 
>3951 00 00 OD 41 4D 41 4D 41 ::BB >3BFI 41 41 41 41 41 00 00 00 ::FB >3E91 41 41 59 47 47 47 47 47 ::EF 
>3959 00 00 47 00 00 41 47 41 ::E6 »3BF9 00 00 QOD OD 00 00 00 59 ::FC >3E99 59 41 41 59 47 47 47 47 ::0F 
»3961 00 00 47 47 47 00 08 41 ::F6 >3C01 00 59 41 59-41 59 00 59 ::39 >3EAl 47 59 41 41 59 59 59 59 ::A9 
>3969 00 00 47 47 00 00.00 00 ::93 >3C09 08 47 41 00 41 00 41 47 ::DA >3EA9 59 59 59 41 41 41 41 41 ::9B 
»3971 00 00 00 00 00 00 00 00 ::AA >3C11 00 47 41 08 41 47 41 00 ::54 >3EBI 41 41 41 41 41 00 00 00 ::BE 
>3979 08 008 22 00 00 QD 00 41 ::BA >3C19 41 47 47 41 00 41 47 41 ::7C »3EB9 20 202 00 00 00 98 08 47 ::2F 
>3981 00 41 00 47 08 47 08 47 ::3A >3C21 00 41 47 00 47 41 O8 41 ::A5 | >3EC1 47 47 47 47 47 47 47 47 ::FB 
>3989 41 00 41 90 00 00 00 08 ::C6 >3C29 00 41 47 00 59 00 47 59 ::32 >3EC9 59 59 59 59 59 59 59 59 ::8B 


>58E1 4D 41 47 47 08 41 41 4 
>38E9 41 41 00 47 47 47 41 47 
>38F1 41 47 41 47 47 00 00 08 


i92E »3B81 59 59 59 59 59 59 59 59 


2 

Ip} 
> 
> 


m 
ww 


>3991 47 41 47 41 00 08 08 00 ::6C | >3C31 47 59 47 00 59 00 00 08 ::F8 >3EDI 59 4D 4D 4D 4D AD 4D AD ::EF 
>3999 08 47 41.47 41 00 41 41 ::53 >3C39 08 00 2D 00 OD BB 08 41 ::7D >3ED9 4D 4D 47 47 47 47 47 47 1:25 
>39A1 41 00 47 41 00 41 00 41 ::82 >35C4H 4 A AI A 4 AM HI 41 ::Al >3EEl 47 47 47 41 41 41 41 41 2:67 
»39A9 00 41 00 08 41 BD 41 08 ::70 >»3C49 41 59 59 59 59 59 59 59 :: Fi >3EE9 41 41 41 41 00 08 00 08 ::Bi 
>39B1 41 41 41 00 47 08 80 00 ::D3 >3C51 41 41 59 59 59 59.59 59 ::C9 >3EFi 00 00 00 OD 00 00 00 00 ::2F 
»3989 00 00 00 00 00 OB 00 47 ::2A »3C59 59 41 41 41 41 41 41 41 ::D1 »3EF9 08 00 00 00 00 00 00 00 ::37 
>39C1 59 47 47 59 47 47 59 47 ::CE »3C61 41 4i 41 08 00 0B 00 08 ::23 >3F01 47 47 47 00 47 47 47 08 ::EB 
>3909 41 41 41 41 41 41 41 41 ::26 »3C69 00 BD 0D OD 08 00 00 08 ::A5 »3F09 09 47 00 00 08 47 00 47 ::B8 


C16-SA 5/88 33 


BEE PROGRAMME 


»3F11 00 


>3F19 47 
>3F21 08 
>3F29 47 
>3F31 08 
>3F39 00 
>5F41 4D 
>3F49 4D 
>3F51 4D 
>3F59 4D 
>»3F61 4D 
>3F69 4D 


>3F71 4D: 


>»3F79 08 
>3F81 59 
>3F89 59 
>»3F91 59 
>3F99 4D 
>3FA1 47 
>3FA9 08 
>3FBi 28 
>3FB9 98 
>3FC1 59 
>3FC9 59 
>3F01 59 
>3FD9 47 
>3FEI 41 
>3FE9 4D 
>3FFl 41 
>3FF9 88 
>4001 88 
>4009 08 
>4o11 00 
>4019 47 
>4021 4D 
>4029 47 
>»4031 59 
»4039 88 
>4041 59 
>4049 47 
>4051 47 
>4059 47 
>4061 47 
>4069 47 
>4071 47 
>4079 08 
>4081 47 
>4089 47 
>4091 47 
>4099 88 
>4QA1 08 
>40A9 098 
>40B1 008 
>40B9 08 
>4ac1 59 
>40C9 59 
>»40D1 59 
>40D9 98 
>4QE1 47 
>4DEg 47 
>4@F1 47 
>4OF9 08 
>4101 4D 
>4109 08 
>4111 08 
>4119 08 
>4121 08 
>4129 08 
>4131 008 
>4139 08 
>4141 47 
>4149 47 
>4151 41 
>4159 47 
>4161 41 
>4169 47 
>4171 08 
>4179 FF 
>4181 00 
>4189 08 
>4191 08 
>4199 47 
>41A1 00 
>41A9 47 


34 


00 47 08 
00 08 47 


>41B1 
>41B9 
>41C1 
>41C9 


. >41D1 


>41D9 
>41E1 
>41E9 
>41F1 
>41F9 
»4201 


.>4209 


>4211 
>4219 
>4221 
>4229 
>4231 
>4239 
>4241 
>4249 
>»4251 
>4259 
>4261 
>4269 
>4271 
>4279 
>4281 
>4289 
>4291 
>4299 
>42A1 
>42A9 
>42B1 
>42B9 
>42C1 
>42C9 
>42D1 
>42D9 
>42E1 
>42E9 
>42F1 
>42F9 
>4301 
>4309 
>4311 
>4319 
>4321 
>4329 
>4331 
>4339 
>4341 
>4349 
>4351 
>4359 
>4361 
>4369 
>4371 
>4379 
>4381 
>4389 
>4391 
>4399 
>43A1 


">43A9 


>43B1 
>43B9 
>43C1 
>43C9 


>43D1 ° 


>43D9 
>43E1 
>43E9 
>43Fl 
>43Fg 
>4401 
>4409 
>4411 
>4419 
>4421 
>4429 
>4431 
>4439 
>4441 
>4u449 


08 
08, 00 028 


08 
00 88 08 


>4451 
>4459 
>4461 
>4469 
>4471 
>4479 
>4481 
>4489 
>4491 
>4499 
>44A1 
>4uAg 
>44B1 
>44B9 
>44C1 
>44C09 
>44D1 
>44D9 
>44E1 
>44E9g 
>Aurl 
>4uFg 
>45091 
>4509 
>4511 
>4519 
>4521 
>4529 
>4531 
>4539 
>4541 
>4549 
>4551 
>4559 
>4561 
>4569 
>4571 
>4579 
>4581 
>4589 
>4591 
>4599 
>45A1 
>45Ag 
>45B1 


>45B9 F 


>45C1 
>45C9 
>45D1° 
>45D9 
>45E1 
>45E9 
>45F1 
>45F9 
>4601 
>4609 


>4611° 


>4619 
>4621 
>4629 
>4631 
>4639 


>4641 
>4649 
>4651 
>4659 
>4661 
>4669 
>4671 
>4679 
>4681 
>4689 
>4691 
>4699 
>46A1 
>46A9 
>46B1 
>46B9 


.>46C1 


3867 
>46D9 


»46E1 
>46E9 


08 47 00 98 
47 08 08 008 
47 47 47 08 


41 00 00 47 '::59 
41 41 59 08 :: IE 
41 08 FF 42 
FF O8 FF 47 ::25 


FF 08 FF 900 : 

08 08 00 00 ::87 
47 08 08 47 ::FF 
41 47 41 008 ::22 
47 47 47 47 1:63 
008 08 41 47 ::09 
47 47 008 00 ::19 
47 00 FF 08 ::76 
FF 08 FF 08 ::AF 
47 47 47 08 ::6F 
00 47 00 47 ::5B 
53 00 47 00 : 


00 00 FF 80 : 

FF 08 FF 59 ::B7 
> 59 59 3 ; {88 
19% 2 2 66 TEA 
47 47 47 47 2:63 
47 47 47 47 ::Ad 
59 59 59 59 ::E3 


C16-SA 5/88 


Fr 


PROGRAMME BEE 


»46Ft 59 59 59 59 59 00 >47A9 47 47 47 00 00 08 47 47 ::C3 >4861 4D 4D 4D 4D 4D 4D 4D 4D 
>»46F9 FF 00 FF 08 FF OB 00 47 ::6E »47B1 00 47 47 00 00 00 FF 08 ::54 >4869 4D 4D 4D 4D 4D 4D 4D 4D ::85 
»4701 47 47 47 47 47 47 47 47 ::44 >47B9 FF 00 FF 00 FF 00 EF 59 ::B8, >4871 4D 4D 4D 4D 4D 00 FF 00 ::35. 
»4709 47 00 00 00 41 00 00 00 ::DC »47C1 59 59 59 59 59 59 59 59 ;:8C°' >4879 FF 00 FF 08 FF 00 FF 59 ::79 

"34711 47 47 41 47 47 47 47 47 ::42 >47C9 4D 47 47 47 47 47 47 47 ::12 >4881 59 59 59 59 59 59 59 59 ::4D 
>4719 41 47 47 41 47 47 47 47 ::3E >4701 4D 4D 4D 47 47 47 47 47 ::38 >4889 59 59 59 59 59 59 59 59 ::55 
»4721 47 41 47 47 00 00 00 41 ::2A >4709 4D 4D 4D 4D 4D 47 47 47 ::76 >4891 59 59 59 59 59 59 59 59 ::5D 
»4729 00 00 00 47 47 47 47 47 ::C2 >47E1 4D 4D 4D 41 41 41 41 47 ::C4 >4899 59 59 59 59 59 59 59 59 ::65 
»4731 47 47 47 47 47 00 FF 08 ::9A >47E9 41 41 41 41 59 59 59 59 ::C4 >48A1 59.59 59 59 59 59 59 59 ::6D 
»4739 FF 00 FF 08 FF 08 FF 41 ::78 >47F1 59 59 59 59 59 00 FF 00 ::68 >»48Ag 59 59 59 59 59 59 59 59 ::75 
»4741 41 00 00 47 00 00 41 41 ::B4 »47F9 FF 08 FF 00 FF 00 00 41 ::3F >48B1 59 59 59 59 59 00 00 00 ::30 
>4749 41 08 00 47 47 47 00 00 ::FA >4801 41 41 41 41 41 41 41 41 ::6D >48B9 00 00 00 00 00 00 DO 47 ::39 
»4751 41 00 00 47 47 47 47 47 ::2B >4809 41 41 4 41 41 41 4 4i ::75 >48C1 47 47 47 47 47 47 47°U7 2:05 
»4759 00 00 00 08 47 47 47 47 ::D6 4811 41 41 41 414 41 41 41 UI ::7D >48C9 47 47 47 47 47 47 47 47 ::0D 
»4761 47 00 00 41 00 08 47 47 ::1C >4819 41 41 41 41 41 41 41 UI ::85 >48D1 47 47 47 47 47 47 47 47 2:15 
>4769 47 00 00 41 41 41 00 00 ::C6 34821 41 41 41 41 41 41 41 41 ::8D >48D9 47 47 47 47 47 47 47 47 ::1D 
>»4771 47 08 08 41 41 00 FF 08 ::41 >4829 41 41 41 41 41 41 41 UI ::95: >48E1 47 47 47 47 47 47 U7 47 2325 
»4779 FF 08 FF 00 FF 00 FF 00 ::B® >4831 41 41 41 41 41 00 FF 00 ::41 >48E9 47 47 47. 47 47 47 47 47 ::2D 
»4781 00 47 47 00 47 47 00 00 ::38 >4839 FF 00 FF 00 FF 08 FF 4D ::D9 >48F1 47 47 47 47 47 00 00 00 ::62 
>»4789 00 47 47 47 00 47 47 47 1:22 >4841 4D 4D 4D 4D 4D 4D AD 4D ::5D »48F9 00 00 08 02 00 00 QO 08 ::41 
»4791 00 47 47 47 47 47 47 47 ::8D >4849 4D 4D 4D 4D.4D 4D 4D 4D ::65 
>4799 47 47 47 47 47 47 47 47 ::DC >4851 4D 4D 4D 4D 4D 4D 4D 4D ::6D 

.»47A1 47 47 47 00 47 47 47 00 ::908 >4859 4D 4D.4D 4D 4D 4D 4D 4D ::75 ENDE DES LISTINGS (OVM) 





Hier: ist sie, die Computer- 
Version des beliebten Brett- 
spiels. Zwar braucht man auch 
in dieser Version mindestens 
einen Mitspieler. Der Computer 
überprüft allerdings alle Züge, 
so daß nicht gemogelt werden 
kann. 


Programmname: Mensch 
ärgere Dich nicht 


Computertyp: C16/116/ 
„mit 64K-RAM/Plus 4 
Lauffähig: Disk. u. Kass. 
Besonderheiten: Compu- 
terversion des bekannten 
Brettspiels 


Die Bedienung ist recht ein- 
fach: Über die Leertaste wird 
gewürfelt. Nun muß angege- 


ben werden, welche Figur be- ern 





”_ö 


wegt werden soll. Nur wenn 
man nach einer Sechs eine Fi- 
gur ins Spielfeld bringt, erledigt 
dies der Computer automa- 
tisch. Ist die Eingabe der Fi- 
gurnummer falsch, so wird dies 
angezeigt,.und der Zug kann 


Ein Stein mit der Position 66 ist 
noch nicht im Spiel, einer mit 
der Nummer 99 hat das Ziel er- 
reicht und ist zu Hause. Maxi- 
mal 4 Spieler können, teilneh- 
men. 


Basic-Programm, 
unter dem Namen "MENSCH” 


welches oder ”AERGER” abgespei- 
chert werden sollte. 


G + CHECKSUMMEN (OC V1.0) 





nochmals eingegeben werden. Die Eingabe ist mit Hilfe des 19 REM Se ee <193> 
Für jede einzelne Figur wird Checksummers nicht schwie- : En PR M.AE.D.N Err ns 
deren Position angezeigt. rig. Es handelt sich um ein 30 REM xx Mar wor <37> 
50 REM *#* VON nr <83> 
60 REM *** WALTER PUDRITZKI *** <183> 
nn 70 REM *** LORENZ HAUPT *** <108> 
DDODB!ı & 80 REM *** w.* <77> 
& S S = 98 REM WERK a a a <17> 
”„».u, 8 10@ SCNCLR:VOL 8 <49> 
a DEN sreBERE 118 COLOR ®,14:COLOR 4,14:COLOR 1,3,3 <103> 
gen 120 CHAR,12,5,"MENSCH{SPACE2)AERGERE" <42> 
TORE 130 CHAR,12,7,"{SPACE}DICH( SPACE4} NICHT" <71> 
"DRODOD 14@ COLOR 1,15,1 <133> 
emo m 150 CHAR,6,4,"{SU SC3 SI}":CHAR, 28,4," {SU SC 
VDIODON 3 .8I)" <27> 
JOBE 160 CHAR,6,5,"{5B SPACE3 SB)" :CHAR, 28,5,"1SB 
ee SQ SPACE SQ SB)" <151> 
20. »al 178 CHAR,6,6,"{SB SPACE SQ SPACE SB}":CHAR,2 
"oo0o 8,6."{SB SQ SHIFTSPACE SQ SB}" <36> 
— nn 180 CHAR,6,7,"({5B SPACE3 SB)" :CHAR,28,7,"{S5B 
ano um 5Q SHIFTSPACE SQ SB)" <93> 
- 190 CHAR,6,8,"(SJ SC3 SK)" :CHAR, 28,8, "1S5J SC 
3 Sk)" > " .€160> 
20® FOR T=® TO 120:NEXT T <185> 
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BER 6,4,"(SU SC3 SI}":CHAR.28,4, "(SU SC 
220 CHAR,6,5,"{SB 503 SB}":CHAR,28,5,"{SB SH 
IFTSPACE3 SB}" 

230 CHAR,6,6,"({SB SPACE3 SB}":CHAR,28,6,"(5B 

SHIFTSPACE SQ SHIFTSPACE SB}" 

240 CHAR,6,7,"(5B 503 SB}":CHAR,28,7,"{5B SP 
ACE3 SB}" 

250 CHAR,6,8,"(5J SC3 SK}":CHAR,28,8,"(5J SC 





3 SK}" 

260 FOR T=® TO 120:NEXT T 

270 COLOR 1,1 

280 CHAR,18,12, "VON" 

290 CHAR,11,15, "WALTER SPACE2}PUDRITZKI" 
300 CHAR,13,17, "LORENZ { SPACE2}HAUPT" 

31@ CHAR,16,21,"<SPACE>" 

320 GET S$:IF S$-CHR$(32) THEN 340 

330 GOTO 148 

348 SCNCLR 

350 PRINT" {SPACE18}WIEVIELE(SPACE2}SPIELER" 
368 PRINT 

370 PRINT"(SPACE1@ SU SC3 SI SPACE SU SC3 SI 


SPACE SU 5C3 SI} 

380 PRINT" {SPACE1@ SB SU SC SI SB SPACE SB S 
U SC SI SB SPACE 5B2 SPACE SB2) 

3980 PRINT"{SPACE1O SB } SHIFTSPACE2 SB2 SPACE 
SB SHI SB2 SPACE SB2 SHIFTSPACE SB2) 
400 PRINT"{SPACE1@ SB SU SC SK SB SPACE SBS 
HIETSPACE SC CW SB SPACE SB 5J SC CW SB) 
410 EIN LSPACELE SB2 SHIFTSPACE2 SB SPACE 
SB SHI SB2 SPACE 5B SHIFTSPACE2 SB2} 
420 ar SB CZ SC E = SB SPACE SB 5 
J SC SK SB SPACE SB SHI. CEZ SB2} 
430 NT (SPACE1Q SJ 3C3 = SPACE SI 3C3 SK 
® X ner = 

Ase CHAR1,X,10, "(SA)" 
460 GETKEY FR$ - 

478 CHAR1,X,10, "(SPACE)" 

488 IF FR$=CHR$(29) THEN X=-X+6 
498 IF FR$=CHR$ (157) THEN X=X-6 

508 IF X<12THEN X=12:IF X=>24 THEN X=24 

510 IF X>24THEN X=24 

520 IF FR$=CHR$ (13) THEN SP=X/6 :G60T0548 

530 SOUND1,596,5:S0UND2,685,5:G0T0458 

548 SOUND1,643,15:SOUND2, 704,15 

550 PRINT"{DOWN}":FOR Y=1 TO SP 

568 PRINT"{SPACE3 RVSON SPACE}NAME{SPACE)ISPI 
ELER{ SPACE ‚RUSOFF} " ;Y:P! Y:PRINT" {UP2}" 

578 PRINTTAB(20) ; :INPUT NA$(Y) 

588 IF LEN(NA$(Y))>9 THEN NA$(Y)=LEFT$(NA$(Y 
),9) 

598 IF LEN(NA$(Y))<9 THEN NA$(Y)=NAS$(Y)+"(SP 
ACE}'“ :GOTO 598 

608 IF Y=1 THEN COLOR1,6,4 

6180 IF Y=2 THEN COLOR1,8,6 

620 IF Y=-3 THEN COLOR1,3,5 

638 PRINT:NEXT Y 

648 COLOR1,1 

658 PRINT" { DOWN}MOECHTEN{SPACE}SIE{SPACE}DIE 
{SPACE} WUERFELMELODIE{ SPACE}HOEREN ( SPA SPACE} ?" 
668 PRINT: PRINTTAB(16) "{RVSON SPACE} J/N(, SPAC 
E RVSOFF}“ 

678 GEIKEY WM$:IF WM$="J" OR WM$="N"THEN 680 
:ELSE 670 

688 PRINTTAB(12) "4 DOWN}BITTE{ SPACE}WARTEN" 
698 DIM F(11,11):DIM M(11,11):DIM Z(110) 

708 R=INT(RND(-TI)) 

718 F(8,0)=1:F(1,0)=-1:F(1,1)=1:F(0,10)-2:F(® 
‚9)=2:F(1,9)=2 

720 F(18,0)=-4:F(9,1)=4:F(18,1)-4:F(9,9)=-3: Ft 
9,18)=-3:F(10,19)-3 
730 FOR X=1 TO 9:F(5,X)=9:NEXT X:FOR X=1T0 9 
:F(X,5)=9:NEXT X 
748 FOR X=® TO 1:FOR Y=2 TO 3 

750 F(X,Y)=10:F(X,Y+5)=19:F(X+9,Y)=10:F(X+9, 
Y+5)=10 

768 NEXT Y:NEXT X 


36 


<87> 
<1277 
<1737> 
<69> 


<2207 
<2467 
<160> 
<217> 
<D8> 
<150> 
<1527> 
<205? 
<146> 
<61> 
<1217 
<2> 


<129> 
<78> 
<216> 
<215> 
<52> 
<226> 


<212> 
< 208° 
<205> 
<46> 
<151> 
<98> 
<136> 
<127> 
<197> 
<2> 

<159> 
<26> 
<89> 


<81> 
<2137 


<7> 
<83> 
<175> 
<229> 
<187> 
<111> 
<19> 
<166> 
<10> 
<194> 
<230> 
<114> 
<5> 
<101> 
<28> 


<B0> 


<103>: 


<36> 
<156> 


‚1220 


778 FOR X=2 TO-3:FOR Y=® TO 3 


‘780 F(X,Y)=10:F(X, ea Ha F(X+5, YV=-18: :F(X+5, 


Y+7)=19 

798 NEXT Y:NEXT X 

808 F(5,5)=-108 

818 FOR X=8 TO 18:FOR Y=® TO 10:M(X,Y)=-1:NE 
XT Y:NEXT X 

820 MZ=8 

830 FOR X=® TO 4:M(X,4)=MZ2:MZ=MZ+1 :NEXTX 

840 FOR Y=3 TO 8 STEP-1:M(4,Y)=MZ :MZ=MZ+1 :NE 
XT Y 


850 M(5,0)=MZ :MZ=MZ+1 

860 FOR Y=® TO 4:M(6,Y)=MZ:MZ=MZ+1 :NEXTY 
"870 FOR X=7 TO 10:M(X,4)=MZ:MZ=MZ+1:NEXT X 
8880 M(19,5)=MZ :MZ=MZ+1 

898 FOR X=18 TO .6 STEP-1:M(X,6)=MZ: MZ=MZ+1: N 
EXT X E 
:988 FOR Y=7 TO 10:M(6,Y)=MZ:MZ=M2+1:NEXT Y 
918 M(5,10)=MZ:MZ=MZ+1 

928 FOR Y=18 TO 6 STEP-1:M(4,Y)=MZ:MZ=M2+1:N 
EXT Y 

938 FOR X=3 TO ® STEP-1:M(X,6)=MZ:MZ=MZ+1:NE 
XT X 


948 M(8,5)=MZ :MZ=MZ+1 

958 FOR X=1 TO 4:M(X,5)=MZ :MZ=MZ+1:NEXTX 

968 FOR Y=1 TO 4:M(5,Y)=MZ :MZ=MZ+1 :NEXTY 
978 FOR X=9 TO 6 STEP-1:M(X,5)=MZ :MZ=MZ+1:NE 


XAT X 
ne Bass Y=9 TO 6 STEP-1:M(5,Y)=MZ :MZ=MZ+1':NE 


958 "NZ-56:M(0. 1)=MZ :MZ=57 :M(1,1)=MZ :MZ=58 :M( 
8,0)=-MZ2:M2=59:M(1,08)=MZ 

1088 MZ=60:M(19,9) =MZ :MZ=61:M(9,9)=MZ :MZ=62: 
M(18,10)=MZ :MZ=63:M(9,10)=MZ 

1010 MZ=70:M(9,0)=MZ :MZ=71:M(9,1)=MZ :MZ=72:M 
(18,0) =MZ :MZ=73:M(10,1)=MZ 

1020 MZ=80:M(1,10)=MZ :MZ=81:M(1,9)=MZ:MZ=82; 
M(0,18)=MZ:MZ=83:M(8,9)=MZ 

1038 R=e1:C=1:Q=1:U=1:B=1:K=1 

1848 G(1)=19:N(1)=20:A(1)=39 

1059 FOR X=2T04:5(X)=66:NEXT X 

1868 FOR X=2T04:6(X)=78:NEXT X 

1078 FOR X=2T04:N(X)=74:NEXT X 

1888 FOR X=2T04:A(X)=78:NEXT X 

1098 S59=43:69=47 :N9=51:A9=55 

1108 FOR X=48 TO 55:2(X)=9:NEXT X 

1110 FOR X=56 TO 59:2(X)=1:NEXT X 

1128 FOR X=60 TO 63:Z(X)=3:NEXT X 

1138 FOR X=78 TO 73:Z(X)=4:NEXT X 

1148 FOR X=88 TO 83:2(X)=2:NEXT X 

1159 IFSP=2THENG (1)=70:A(1)=78:2(0)=-1:2(20)= 
3:2(56)=-9:2(60)-0:F(9,8)=-4:F(1,10)=2 

1168 IFSP=3THENA (1)=78:2(0)=1:2(10)=4:2(20)= 
3:2(56)=-98:2(60)=0:2(70)-0:F(1,10)=2 

1178 IF SP=4 THEN 2(0)=1:2(18)=4:2(20)=3:2(3 
0)=2:2(56)=8:2(60)=-0:2(70)=-9:2(80)=® 

1180 REM *** BRETTAUFBAU Wenn 
1198 GRAPHIC 3,1 

1208 CIRCLE1,20,20,2:PAINT2,20,20,1 

1210 SSHAPE A$,18,16,22,24:SCNCLR 
CIRCLE,20,20,1:PAINT2,20,20,1 

SSHAPE F$,19,18,21,22:SCNCLR 

FOR X=1 TO 22:CHAR,X,9,"(SC}":CHAR,X, 23 


1238 
1249 


„"{SC}" :NEXT 


1250 FOR X=1 TO 22:CHAR,0,X,"(SB}":CHAR,23,X 
‚"{SB}" :NEXT x ® 

1260 CHAR,®,0,"{CA}" :CHAR,23,0,"(CS5}":CHAR,® 
„23,”( CZ)" :CHAR, 23,23, "(CX}" 

127® CHAR, 2,6, "MENSCH 

1280 CHAR,16,6, "AERGERE” 

1290 CHAR,3,17, "DICH" 

1300 CHAR,17,17, "NICHT" 

131® COLOR ®,7,6:COLOR 4,7,6 

1320 COLOR 3,8:PAINT 3,4,20,1 

1330 .DRAW,32,180 TO 32,150:DRAW,30,154 TO 32 
‚150:DRAW,34,154 TO 32,150 

1348 BOX,7,66,25,67:DRAW,23,64 TO 25,66:DRAW 
.23.69 TO 25.67 


<132> 


<179> 


<187> 
<29> 


<92> 
<14> 
<189> 


<24> ° 
<201> 
<96> 
<81> 
<172> 


<112> 
<248> 
<193> 


<231> 


<25> 
<45> 
<69> 
<198> 


<110> 
<237> 
<223> 
239) 
<246> 


«535 
<244> 
<113> 
<202> 
<45> 
<167> 
<129> 
<189> 
<74> 
<30> 
<3> 
<39> 
<30> 


<137> 
<182> 


<155> 
<76> 
<54> 
<225> 
<105> 
<76> 
<117> 


<110> 
<1757 


<148> 
<150> 
<9> 
<76> 
<102> 
<111> 
<219> 


<22> 
<44> 
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1350 DRAW,66,12 TO 66,42:DRAW,64,38 TO 66,42 














































2000 W=S(C+4):G0OSUB 7390:G0T0 2130 2 <63> 

:DRAW,68,38 TOp66,42 <120> | 2810 IF Z(8)=1 THEN 2070 <31> 
1360 BOX,73,126,91,127:DRAW,75,124 TO 73,126 2020 IF Z(56)=1 THEN 2(56)=0:5(1)=77:C=1:W=5 

:DRAW, 75,129 TO 73,127 <97> | 6:G0TO 2060 <92> 
1370 : <153> | 2838 IF 2(57)=1 THEN 2(57)=0:5(2)=77:C=2:W=5 

1380 D=D+1 <122> | 7:60TO 2068 <201> 
1398 IF D-1=SP THEN D=1 <146> | 20840 IF Z(58)=1 THEN 2(58)=0:5(3)=77:C=3:W=5 

1400 REM *** SPIELFELD WWW <235> | 8:60TO 2960 <54> 
1410 GOSUB 5820 <222> | 20850 IF Z(59)=1 THEN 2(59)=0:5(4)=77:C=4:W=5 

1420 IF SP=2 AND S9=40 AND N9=48 AND 2(40)=7 9 <233> 
AND Z(48)=8 THEN 6930 <123> | 20860 GOSUB 7398 <124> 
1430 IFSP=3ANDS9=49ANDGI=44ANDNI=48ANDZ (40) = 2070 IF R=6 THEN CHAR, 28,12, "SPITZE{SPACE}!" 

7ANDZ (44)=5ANDZ (48) =8THEN 6930 <91> | :FOR T=® TO 500:NEXT T:GOSUB 5130 <226> 
1440 IF SP=4.AND 59=4® AND 69=44 AND N9=48 A 2080 P=P+6 <130> 
ND A9=52 THEN 1450:ELSE 1470 <85> | 2090 IF R=6 THEN 2070 <118> 
1450 IF Z(40)=7 AND Z(44)=5 AND Z(48)=8 AND 2100 IF S(C)=77 OR S(C)=@ THEN P=P-6 <12> 
2(52)=6 THEN 6930 <27> | 2110 IF Z(0)=1 THEN P=P+6 <47> 
1460 REM *** WUERFELN Wem <120> | 2120 R=-R+P:P=0:60T0 1550 <218> 
1470 GOSUB 4470 <32> | 2130 IF Z(43)=7 THEN S9=42 <180> 
1480 REM *** STEIN VERLEGEN tik wii <14> | 2148 IF Z(43)=7 AND 2(42)-7 THEN 59-41 <121> 
1490 GOSUB 1529 <29> | 2150 IF 2(43)=7 AND 2(42)=7 AND Z(41)=7 THEN 

1500 GOTO 1380 <53> 59=40 2 <97> 
1510 REM *** STEIN VERLEGEN Wiki <44> | 2160 IF 59-40 AND 2(40)=7 THEN 2170:ELSE 218 

1520 IF R=® THEN RETURN <145> | ® <141> 
1530 ON D GOTO 1550,2970,2200,3740 <174> | 2170 IF Ki=0 THEN N$(K)=NA$(1) :K=K+1:Kiel <90> 
1540 REM *** SPIELER SCHWARZ" KW kw <23> | 2180 RETURN : <26> 
1558 FOR X=1 To 4 <139> | 2198 REM *** SPIELER GELB PETTTEETL ET ES D <178> 
1560 IF S(X)=® THEN C=X:G0TO 1840 <210> | 2208 FOR X=1 TO 4 "223> 
1578 NEXT X <908> | 2210 IF G(X)=18 THEN N=X:G0TO 2490 <1> 
1580 FOR X=1 TO 4 <169> | 2220 NEXT X : <2303 
1590 IF S(X)=77 THEN C=X:G0TO 1840 <93> | 2230 FOR X=1 TO 4 <53> 
1608 NEXT X <120> | 2240 IF 6(X)=77 THEN Q=X:G0TO 2498 <129) 
1610 IF R=6 THEN 2010 <100> | 2250 NEXT X <4> 
1620 CHAR, 28,12,"?{ SPACE)STEIN{SPACE}" <105> | 2260 IF R=6 THEN 2780 <89> 
1630 GETKEY C in <192> | 227@ CHAR, 28,12, "?1SPACEISTEINISPACEN" <245 
1640 IF C=® THEN CHAR, 28,12, "{SPACEYWEITER{S 2280 GETKEY Q <118> 
PACE}":FOR T=0 TO 500:NEXT T: RETURN <31> | 2290 IF Q=® THEN CHAR,28,12,"1SPACE}WEITER(S 

1650 IF C<&ı OR C>4 THEN 1690:ELSE 1710 <118> | PACE}":FOR T=® TO 500:NEXT T:RETURN <199> 
1668 IF S(C)=® AND Z(S(tC))<>® THEN GOSUB 647 3300 IF Q<1 OR Q>4 THEN 2340:ELSE 2360 £69> 
® «64> | 2310 IF G(Q)=10 AND Z(G(N))<>® THEN GOSUB 65 

1670 IF S(C)=® THEN Z(0)=1:W=® <56> | 10 <9> 
1680 GOSUB 7398 <254> | 2320 IF G(N)-10 THEN Z(10)=-4:W=10 <115> 
1690 CHAR, 28,12, "{SPACE}FEHLER{ SPACE} " <61> | 2330 GOSUB 7398 <139> 
1700 SOUND 1,316,20:SOUND 2,739,20:FOR T=-® T 2340 CHAR,28,12, "1 SPACE} FEHLER{SPACE}" <202> 
0 500:NEXT T:GOTO 1620 <240> | 2350 SOUND 1,316,20:SOUND 2,739,20:FOR T=0 T 

1710 CHAR, 28,12, "(SPACES}" : <56> | 0 500:NEXT T:GOTO 2270 *= 1993 
1720 ON C GOTO 1730,1760,1790,1828 <210> | 2360 CHAR,28,12,"{SPACE8}" <197> 
1730 IF Z(56)-=1 THEN 1690 «244> | 2370 ON Q GOTO 2380, 2410, 2440, 2470 <250> 
1748 IF S(1)=103 THEN 1698 <136> | 2380 IF 2(70)=4 THEN 2340 <48> 
1750 GOTO 1840 <47> | 23908 IF G(1)=103 THEN 2340 <163> 
1760 IF Z(57)=1 THEN 1698 <23> | 24908 GOTO 2490 : «1983 
1770 IF S(2)=103 THEN 1690 <170> | 2410 IF Z(71)=4 THEN 2340 <83> 
1780 GOTO 1848 <77> | 2420 IF G(2)=103 THEN 2340 <197) 
1798 IF Z(58)=1 THEN 1690 <58> 2430 GOTO 2498 <228> 
1800 IF S(3)=103 THEN 169® <205> | 24408 IF 2Z(72)=4 THEN 2340 <118>. 
1818 GOTO 1840 <108> | 2450 IF G(3)=103 THEN 2340 <231> 
1820 IF Z(59)=1 THEN 1698 <94> 2460 GOTO 2490 <2> 
1830 IF S(4)=103 THEN 1698 <239> | 2470 IF Z(73)=4 THEN 2340 <153> 
1840 IF R=6 THEN 2070 <123> | 2480 IF G(4)-=103 THEN 2340 <9> 
1850 IF S(C)=77 THEN S(C)=R:S(C+4)=77:G60T0 1 2498 IF R=6 THEN 2840 <39> 
879 <144> | 2580 IF G(Q)=77 THEN G(N)=1@+R:6 (N+4)=77:60T 
1860 S(C)=StC)+R:S(C+4)=SLC)-R <9> 0 2578 <164> 
1878 IF S(C)>SI9 THEN S(C)=StC)-R:G0OTO 1698 <15> 2510 IF G(N)<40 AND G(N)+R>49 THEN 2520:ELSE 
1880 IF Z(StC))=1 OR Z(S(C))=7 THEN S(C)=StC 2568 <63> 
)-R:G0OTO 1668 <120> | 2520 GLQ+4)=G (N) :G(Q)=G N) +R-6 <11> 
1898 IF Z(S(C))<>® AND S(C)<40 THEN GOSUB 64 2530 IF Z(G(Q))=5 OR G(N)>69 THEN G(NI=G(N)- 
70 <106> | R+6:G0TO 2348 <232> 
1900 IF SC=® AND Z(®)=1 THEN 2(0)-=® <189> | 2548 Z(G(A))=5:Z(6(N+4))=O <144> 
1910 SC=-1 <48> 2550 GOTO 2900 <712 
1928 Z(S(C))=1:2(S(C+4))=® <166> | 2560 G(N)=-G(N)+R:6 (N+4)=G(N)-R <136> 
1930 IF S(C+4) >39 THEN Z(S(C+4))=9 <172> | 2570 IF G(N)>39 THEN G(N)=G(N)-40 <160> 
1948 IF S(C)>39 THEN Z(S(C))=7 <200> | 2580 IF G(Q)>9 AND G(N+4)<=9 THEN GLN)I=-G(Q)+ 
1950 IF S(C)=S9 THEN W=S(C) :GOSUB 7398 <80> 34 = <151> 
1960 IF S(C)=S9 THEN GOSUB 2130:60SUB 6890 <43> | 2599 IF Z(6(A))=5 OR GLN)>69 THEN G(NI-GLN)- 
1970 GOSUB 4540 : <13> | 34-R:GOTO 2340. <2472 
1980 W-S(C) :G0OSUB 7398 <250> | 2608 IF GLA)<G(N+4) AND G(N+4)>=44 AND G(Nr4 
1990 IF S(C+4)=77 THEN W=55+C:G0OSUB 7390:GOT )< >77. THEN G(Q)=G (Q) +40  <84> 


0 2130 <127> | 2610 IF G(A)>69 THEN GLN)=G(M)-R:GOTO 2348 <126> 
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2620 IF Z(6(Q))=4 OR Z(6(Q))=5 THEN 2630:ELS 

D630 IF 6(9+4)=77 THEN G(N)=G{N)-R:GOTO 2318 

2640 IF G(N)<G(N+4) THEN G(N)=G (N) +49-R:GOTO 

2688. ıF GLA)>G(N+4) THEN G(N)=G(N)-R:GOTO 23 

2660 IF ZIG )C2E AND G(N)<44 THEN GOSUB 65 
& > AND Z(10)=4 THEN Z(10)=® 


..18 
2678 
26808 
2698 Z(G(N))=4:2(6(N+4))=0 
2708 IF G(N+4) >=44 THEN Z(G(Q+4))=9 
2718 IF G(Q)>=44 THEN Z(6(N))=5 
2720 IF G(Q)=G9 THEN W=G (N) :GOSUB 7398 
2730 IF G(Q)-G69 THEN GOSUB 2900:60SUB 68908 
2740 GOSUB 4698 
2758 W=G (0) :GOSUB 73998 
2768 IF G(N+4)=77 THEN W=69+N:G0SUB 7399 :60T 
O0 29008 
2770 W=G(N+4) :GOSUB 7390:G0TO 2988 
2788 IF Z(10)=4 THEN 2840 
2798 IF 2(70)=4 THEN 2(70)=8:6(1)=77:Q=1:W=7 
8:G0TO 2838 
2808 IF 2(71)=4 THEN 2(71)=8:6(2)=77:0=2:W=7 
1:G60TO 28308 
2810 IF 2(72)=4 THEN 2(72)=0:6(3)=77:0=3:W=7 
2:G0TO 2830 


2820 IF 2(73)=4 THEN 2(73)=8:6(4)=77:Q0=4:W=7 
3 

2830 GOSUB 7398 

2848 IF R=6 THEN CHAR, 28,12, "SPITZE{SPACE} !" 
:FOR T=® TO 508:NEXT T:GOSUB 5130 

2850 P=P+6 

2868 IF R=6 THEN 2849 


IF G(Q)=-77 OR G(Q)=18 THEN P=P-6 

IF Z(180)=4 THEN P=P+6 

R=R+P:P=8:G0TO 2288 

IF Z(47)=5 THEN 69=46 

2910 IF 2(47)=5 AND 2Z(46)=-5 THEN 69=45 

2920 IF Z(47)=5 AND Z(46)=5 AND Z(45)=5 THEN 
69=44 

2930 IF G9=44 AND 2(44)=5 THEN 2940:ELSE 295 
8 


2940 IF K3=® THEN N$(K)=NA$ (3) :K=K+1:K3=1 
2950 RETURN 

2960 REM *** SPIELER GRUEN *trrwnukeeeee 
2970 FOR X=1 TO 4 

2980 IF N(X)=2@ THEN U=X:G60T0 3260 

2990 NEXT X 

3008 FOR X=1 TO 4 

3018 IF N(X)=77 THEN U=X:G0T0 3268 

3020 NEXT X 

3030 IF R=6 THEN 3550 

3040 CHAR, 28,12,"?( SPACE}STEIN{ SPACE} " 
305@ GETKEY U 

3060 IF U=® THEN CHAR,28,12,"{SPACEIWEITER{S 
PACE}":FOR T=@ TO 500:NEXT T:RETURN 

3070 IF L<K1 OR U>4 THEN 3110:ELSE 3130 

3000 IF N(U)=20 AND Z(N(U))<>@ THEN GOSUB 65 
® 

3098 IF N(U)=2@ THEN Z(20)=3:W=20 

3100 GOSUB 7398 

311@® CHAR, 28,12, "( SPACE} FEHLER{ SPACE} " 
3120 SOUND 1,316,20:SOUND 2,739,20:FOR T=® T 

0 508:NEXT T:GOTO 3048 

3130 CHAR, 28,12," (SPACEB}" 

3148 ON U GOTO 3150,3180,3210, 3240 

3150 IF Z(60)=3 THEN 3110 

3160 IF N(1)=103 THEN 3110 

3170 GOTO 3268 

3180 IF Z(61)=3 THEN 3110 

3190 IF N(2)=103 THEN 3110 

3200 GOTO 3268 

321® IF Z(62)=3 THEN 3110 

3228 IF N(3)=103 THEN 3110 

3230 GOTO 3268 

3240 IF 2(63)=3 THEN 3110 


2878 
2880 
2898 
2908 


38 


<2377 
<75> 


<166> 
<60> 


<156> 
<208> 
<69> 
<39> 
<1427> 
<68> 
<85> 
<53> 
<41> 
<33> 


<96> 
<1897 
<224, 


<241: 
<94> 
<203: 


<2008: 
<1297 


<231> 
<1357 
<155> 
<74> 
<37> 
<126> 
<125> 
<22> 


<2267 


<108> 
<1897 
<31> 
<75> 
<28> 
<255> 
<2357 
<58> 
<120> 
<9> 
<62> 
<259> 
<135) 


<212> 
<242> 


<31> 

<1737> 
<1447> 
<207? 


<68> 
<202> 
<147> 
<249) 
<130) 
<1873 
<28> 
<164> 
<217> 
<63> 
<198> 
<247) 
<98> 


:3528 


3250 IF N(4)=103 THEN 3119 

3268 IF R=6 THEN 3610 

3278 IF N{U)=77 THEN N(U)=20+R: N (U+44)=77: GOT 

0 3348 

3280 IF N(U)<48 AND N(U)+R>59 THEN 3298: ELSE 
3330 

3290 
3308 

R+12 
3318 

3320 
3338 

3349 
3359 
)+28 

3360 


N(U+4)=N (U) :N(U)=N (U)+R-12 

IF Z(N(U))=8 OR N(U)>N9 THEN N(UJ=N(U)- 
:GOTO 3118 

Z(N(U) )=8:Z(N(U+4) )=® 

GOTO 3670 

N(U)=N(U)+R:N(U+4)=N(U)-R 

IF N(U)>39 THEN N(U)=N(U)-49 

IF N(U) >19 AND N(U+4)<=19 THEN N(U)=N(U 


IF Z(N(U))=8 OR N(U)>N9 THEN N(U)=N(U)- 
28-R:GOTO 3118 
3370 IF N(U)<N(U+4) AND N(U+4) >=48 AND N(U+4 
)<>77 THEN N(U)=N(U)+40 
3388 IF N(U)>N9 THEN N(U)=N(U)-R:GOTO 3118 
3398 IF Z(N(U))=3 OR Z(N(U))=8 THEN 3400:ELS 
E 3430 
3488 IF N(U+4)=77 THEN N(U)=N(U)-R:GOTO 3080 
3418 IF N(U)<N(U+4) THEN N(U)=N(U)+40-R :GOT 
0 3888 
3420 IF N(U)>N(U+4) THEN N(U)=N(W)-R  :GOT 
0 3080 
34380 IF Z(N(U))<>0 AND N(U)<48 THEN GOSUB 65 
50 
3440 IF NU=® AND 2(20)=3 THEN Z(20)=® 
3450 NU=1 
3468 Z(N(U) )=3:Z(N(U+4))=® 
3478 IF N(U+4) >=48 THEN Z(N(U+4))=9 
3488 IF N(U)>=48 THEN Z(N(U))=8 
3498 IF N(U)=N9 THEN W=N.U) :GOSUB 7399 
3508 IF N(U)=N9 THEN GOSUB 3670:G0SUB 6898 
3510 GOSUB 4868 

W=N (U) :GOSUB 7398 
3538 IF N(U+4)=77 THEN W=59+U:G0SUB 7398 :G0T 
0 3670 
3549 W=N(U+4) :GOSUB 7390:G0TO 3679 
35580 IF Z(20)=3 THEN 3610 
3560 IF Z(60)=3 THEN 2(60)=8:N(1)=77:U=1:W=6 
0:G60TO 3698 
357@ IF 2(61)=3 THEN Z(61)=0:N(2)=77:U=2:W=6 
1:G0TO 3688 
3580 IF 2(62)=3 THEN 2(62)=0:N(3)=77:U=3:W=6 
2:G60TO 3698 
3590 IF 2(63)=3 THEN Z(63)=0:N(4)=77:U=4:W=6 
3 


36088 GOSUB 7390 

3618 IF R=6 THEN CHAR, 28,12, "SPITZE{ SPACE} !" 
:FOR T=® TO 508:NEXT T:GOSUB 5138 

3628 P=P+6 " 

3630 IF R=6 THEN 3618 

3648 IF N(U)=77 OR N(U)=28 THEN P=P-6 

365@ IF 2(20)=3 THEN P=P+6 


3668 R=R+P:P=8:60T0O 2978 

3678 IF Z(51)=8 THEN N9=50 

3680 IF Z(51)=8 AND Z(50)=8 THEN N9=49 

3698 IF Z(51)=8 AND 2(50)=8 AND Z(49)=8 THEN. 
N9=48 

3700 IF N9=48 AND Z(48)=8 THEN 3710:ELSE 372 
® 

3710 IF K2=® THEN N$(K)=NA$ (2) :K=K+1:K2=1 
3728 RETURN 

3730 REM *** SPIELER ROT Krrkkkknkenaee 

‘3748 FOR X=1 TO 4 

3750 IF A(X)=30 THEN B=X:GOTO 4939 

3768 NEXT X 

3778 FOR X=1' TO 4 

3788 IF A(X)=77 THEN B=X:6G0TO 4030 

3798 NEXT X 

3800 IF R=6 THEN 4288 

3818 CHAR,28,12,"?1{ SPACE}STEIN{ SPACE} " 

3820 GETKEY B 

3830 IF B=® THEN CHAR, 28,12,"{SPACE}WEITER{S 


PACE}“":FOR T=® TO 509:NEXT T:RETURN 


<232> 
<12> 


<1727 


<232> 
<127> 


<7> 
<112> 
<97> 
<101> 
<230> 


<109> 
<22> 


68) 
<145) 


2347 
<69> 


<58> 
<193> 


<24> 
<2527 
<89> 
<218> 
<1387 
<91> 
<53> 
<203> 
<40> 
<79> 


<70> 
<75> 
<1775 


<12> 
<121> 
<230> 


<123> 
<134> 


<236> 
<140> 
<128> 
$2427 
<38> 

<64> 

<127> 
g221> 


<157> 
<61> 


1472 
<36> 


<202> 


<337 
<239} 
<240: 
<63> 
<97> 
<14> 
<76> 
2557 
<83> 


<1793 
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3848 IF B<1 OR B>4 THEN 3880:ELSE 3908 
3850 IF A(B)=30 AND Z(A(B))<>0 THEN GOSUB 65 
98 , 
3860 IF A(B)-30 THEN 2 (30) =2:W=30 
3870 GOSUB 7390 
3880 CHAR, 28,12, "{ SPACE} FEHLER{SPAC 4 
3898 SOUND 1,316,20:SOUND 2,739,20:FOR T=® T 
0 599:NEXT T:GOTO 3818 
3900 CHAR, 28,12, '"{SPACES)" 

: 3918 ON B GOTO 3920,3950,3980,401® 
3920 IF Z2(80)=2 THEN 3880 

.. 3930 IF A(1)=183 THEN 3880 
3949 GOTO 4038 
3950 IF Z(81)=2 THEN 3880 
3960 IF A(2)=103 THEN 3880 
3970 GOTO 4038 
3980 IF Z(82)=2 THEN 38898 
3998 IF A(3)=103 THEN 3880 
4900 GOTO 40838 
4910 IF Z(83)=-2 THEN 3880 
4920 IF A(4)=103 THEN 3880 
4030 IF R=-6 THEN 43498 
4040 IF A(B)=77 THEN A(B)=30+R:A(B+4)=77:G60T 
O0 4060 
4050 A(B)=A(B)+R:A(B+4)=A(B)-R 
4068 IF A(B)>39 THEN A(B)=A(B)-40 
4070 IF A(B)>29 AND A(B+4)<=29 THEN A(B)=A(B 
)+22 
4080 IF Z(A(B))=6 OR A(B)>A9 THEN A(B)=A(B)- 
22-R:G0TO 3880 
4098 IF A(B)<A(B+4) AND .A(B+4) >=52 AND A(B+4 
)<>77 THEN A(B)=A(B) +40 
4108 IF A(B)>A9 THEN AtB)=A(B)-R:GOTO 3880 
4110 IF Z(A(B))=2 OR Z(A(B))=6 THEN 4120:ELS 
E 41608 
4120 IF A(B)<30 AND A(B+4)=77 THEN A(B)=A(B) 
+40-R:GOTO 3850 
4138 IF A(B+4)=77 THEN A(B)=A(B)-R:G0TO 3850 
4148 IF A(B)<A(B+4) THEN A(B)=A(B) +48-R:GOTO 
3859 
4158 





IF A(B)>A(B+4) THEN A(B)=A(B)-R:GOTO 38 
IF Z(A(B))<>0 AND A(B)<52 THEN GOSUB 65 


IF AB=-® AND 2(30)-2 THEN 2(30)=® 

AB=1 

Z(A(B))=2:Z(A(B+4) )=® 

IF A(B+4) >=52 THEN Z(A(B+4))=9 

IF A(B)>=52 THEN Z(A(B))=6 

IF A(B)=A9 THEN W=A(B) :GOSUB 7390 

IF A(B)=A9 THEN GOSUB 4400:605UB 6890 
GOSUB 5910 

W=A(B) :GOSUB 7390 

IF A(B+4)=77 THEN W=79+B:G0SUB 7390:G0T 
0 4400 

4270 W=A(B+4) :GOSUB 7390:G0T0 4400 

4280 IF 2(30)-2 THEN 4348 

4290 IF Z(80)-2 THEN 2(80)=0:A(1)=77:B=1:W=8 
0:G0TO 4330 

4300 IF Z(81)=2 THEN Z(81)=0:A(2)=77:B=2:W=8 
1:G0T0O 4330 

4310 IF 2(82)=2 THEN Z(82)=0:A(3)=77:B=3:W-=8 
2:G0T0 4330 


4320 IF Z(83)=2 THEN Z(83)=0:A(4)=77:B=4:W=8 
3 

4330 GOSUB 7398 

4340 IF R=6 THEN CHAR, 28,12, "SPITZE{SPACE}!" 


:FOR T=® TO 500:NEXT T:GOSUB 5138 
4350 P=P+6 
4360 .IF R=6 THEN 4348 


4370 IF A(B)=30 OR A(B)=77 THEN P=P-6 

4380 IF Z(38)=2 THEN P=P+6 

4398 R=R+P:P=0:G0TO 3740 

4400 IF Z(55)=6 THEN A9=54 

4410 IF Z(55)=6 AND 2(54)=6 THEN A9=53 

4420 IF Z(55)=6 AND Z(54)=6 AND 2(53)-6 THEN 


A9=52 
4430 IF A9=52 AND Z(52)=6 THEN 4440:ELSE 445 


C16-SA 5/88 


<83> 


<127: 
<99> 

<1493 
«212: 


<2377 
<207> 
<60> 
<159> 
<28> 
<176> 
<194> 
<62> 
<206> 
<229> 
<96> 
<236> 
<8> 
<130> 
<26> 


<79) 
<159> 
<230> 


<160> 
<18> 


<30> 
<142> 


<872 


<68> 
<79> 


<215> 
<79> 


<137> 
<147> 
<3> 

<98> 
<195> 
<184> 
<171> 
<127> 
<219> 
<166> 


<182> 
<10> 
<151> 


<144> 
<253> 
<106> 


<215> 
<98> 


<200> 
<104> 
<1082> 
<106> 
<255> 
<229> 
<22> 
<121> 


<15> 





PROGRAMME BE 


® 

4440 IF K4=® THEN N$(K)=NA$ (4) :K=K+1:KA=1 

4450 RETURN 

4468 REM wur WUERFELN a2 TE 2 En 2 2 2022020202; 

4470 CHAR, 28,12, "{SPACE7}" 

4480 ON D GOSUB 4519,4810,4649,4980 

4490 GOTO 5130 

4508 :. 

4510 IF S(1)=103 AND S(2)=103 AND S(3)=-103 A 

ND S(4)=103 THEN D=2:60T04810 

4528 COLOR 1,1 

4530 CHAR,28,3,NA$(1) 

4540 FOR X=1 TO 4:J(X)=S(X) 

4550 IF S(X) >=SYANDS(X)<50 THEN S(X)=103 

4560 IF S(X)=103 THEN J(X)=99 

4570 NEXT X : 

4580 CHAR, 26,15,"1. {SPACE)STEIN{ SPACE} "+STR$ 
(It1))+" SPACE" 

4590 CHAR, 26,17,"2. 1 SPACEISTEIN{ SPACE} "+STR$ 
{J(2) )+" {SPACE} " 

4600 CHAR, 26.19,"3. (SPACEYSTEIN{ SPACE} "+STR$ 
(I (3) )+" {SPACE} 

4610 CHAR, 26,21, "4. { SPACE}STEIN{ SPACE} "+STR$ 
(I(4) ) +" (SPACE}" 

4620 RETURN 

4630 : R 

4640 IF G(1)=103 AND G(2)=103 AND G(3)=103 A 

ND G(4)=103 THEN 4650: ELSE467® 

4650 IF SP=3 THEN D=1:60TO 4518 

4668 IF SP=4 THEN D=4:60T0 4980 

4670 COLOR 1,8 : 

4680 CHAR, 28,3,NA$ (3) 

4690 FOR X=1 TO 4:E(X)=G(X)-10 

4700. IF G(X)<=9 THEN E(X)=G(X) +30 

4710 IF G(X))=44 THEN E(X)=G(X)-4 

4720 IF G(X) >=GYANDG(X)<50 THEN G(X)=103 

4730. IF G(X)=103 THEN E(X)=99 

4740 NEXT X 

4750 CHAR, 26,15, "1. { SPACEISTEIN{ SPACE} "+STR$ 
(E(1))+"4SPACE}" 

4760 CHAR, 26,17,"2. 1 SPACEYSTEIN{ SPACE) "+STR$ 
(E(2))+"(SPACEY" 

4770 CHAR, 26,19, "3. {SPACEIYSTEIN{ SPACE} "+STR$ 
E(3))+" SPACE)" i 

4780 CHAR, 26,21, "4. {SPACE)STEIN{ SPACE)" +STR$ 
(E(4) ) +" {SPACE}Y" 

4798 RETURN 

4800 : 

4810 IF N(1)=103 AND N(2)=103 AND N(3)=103 A 

ND N(4)=103 THEN 4820:ELSE484® 

4820 IF SP=2 THEN D=1:G0T0 4518 

4830 IF SP>2 THEN D=3:60T0 4648 

4840 COLOR 1,16,3 

4850 CHAR, 28,3,NA$ (2) 

4860 FOR X=1 TO 4:H(X)=N(X)-20 

4870 IF N(X)<=19 THEN H(X)=N(X) +20 

4880 IF N(X)>=48 THEN H(X)=N(X)-8 

4890 IF N(X)>=NIYANDN (X)<60 THEN N(X)=103 

4900 IF N(X)=103 THEN H(X)=99 























4910 NEXT X 

4928 CHAR, 26,15, "1. {SPACEISTEIN{ SPACE} "+STR$ 
(H(1))+"{SPACE}" 

4930 CHAR, 26,17, "2.1 SPACEISTEIN{ SPACE} "+STR$ 
(H(2))+"{SPACE}" 

4940 CHAR, 26,19, "3. { SPACEYSTEIN{ SPACE} "+STR$ 
(H(3))+"{SPACE}" 2 
4950 CHAR, 26,21, "4. { SPACEISTEIN{ SPACE} "+STR$ 
(H(4) )+"{SPACE}" 

4960 RETURN 

49708 : 

4980 IF A(1)=103 AND A(2)=103 AND A(3)=103 A 
ND A(4)=103 THEN D=1:G60T0451® 

4998 COLOR 1,3,2 

5000 CHAR,28,3,NA$ (4) 

5010 FOR X=1 TO 4:I(X)=A(X)-30 


5020 
5038 
59409 


IF A(X)<=29 THEN I(X)=A(X) +10 
IF A(X)>=52 THEN I(X)=A(X)-12 
IF A(X) >=AYANDA (X)<60 THEN A(X)=103 


<185> 
<206> 
<1> 
<60> 
<201> 
<$45> 
<221> 
<223> 


22432 
<74> 
<237? 
<69> 
<125> 
<150> 
<29> 


<4a4> 
<1037 
<162>3 
<158> 
<172> 
<98> 


<1283 


<249) 


<1857 
<253) 
<156> 
<108> 
<43> 
<34> 
<72> 
<242? 
<200> 


<1008> 
<1597 
<218> 


<213> 
<86> 
<12> 


<130? 
<158> 
<237?7 
<6> 
<58> 
g155>. 
<101> 
<228> 
<27> 
<2042 
<115? 


<84> 
<143> 
<2027 


<197> 
<1> 
<183> 


<195> 
<50> 
22332 
<163> 
<15> 
<38> 
<169> 


39 


EBEN PROGRAMME 


50580 IF A(X)=103 THEN I(X)=99 
5060 NEXT X 

5070 CHAR, 26,15,"1.1{SPACE}STEIN{ SPACE} "+STR$ 
(I(1))+" {SPACE} " 

5080 CHAR,26,17,"2.(SPACEISTEIN{ SPACE} "+STR$ 
{I(2))+"(SPACE}" 

5090 CHAR, 26,19,"3.{ SPACEISTEIN{ SPACE} "+STR$ 
(I(3))+" {SPACE} " 

5100 CHAR,26,21,"4.{SPACEISTEIN{ SPACE} "+STR$ 
(I(4))+"({SPACE}" 
: 5110 RETURN 

5129 : 

5130 O=0+1 

514® COLOR 1,15,® 

5150 CHAR,26,12,"{ SPACE11}" 

5160 IF O=4 THEN 5789 

5170 R=INT(RND(1)*6+1) 

5188 ON R GOTO 5190,5260,5339,5400,5470,5549 
5198 FOR T=® TO 30:NEXT T 

5200 CHAR,30,6 ‚"{SU SC3 SI}" 

5210 CHAR,30,7 ‚„"{SB SPACE3 SB}“ 

5220 CHAR,30,8 ‚"(SB SPACE 5Q SPACE SB}" 
5230 CHAR,30,9 ‚"{SB SPACE3 SB}" 

5248 CHAR,30,10,"(5J 5C3 SK}" 

5250 SOUND 1,169,5:G0T0 5618 

52608 FOR T=® TO 30:NEXT T 

5270 CHAR,30,6 „"({SU SC3 SI}" 

5280 CHAR,30,7 ‚"(SB SPACEZ2 SQ SB}" 

5290 CHAR,30,8 ‚"{SB SPACE3 SB}" 

5300 CHAR,30,9 ‚"{SB SQ SPACEZ SB}" 

5310 CHAR,30,10,"{5J SC3 SM)" 

5320 SOUND 1,262,5:G0TO 5618 

5330 FOR T=® TO 30:NEXT T 

5348 CHAR,30,6 ‚„"{SU SC3 SI}" 

5350 CHAR,30,7 ‚"{SB SQ SPACE2 SB}" 

5360 CHAR,30,8 ‚"{SB SPACE 5Q SPACE SB}" 
537@ CHAR,30,9 ."{SB SPACE2 SQ SB)" 
5380’CHAR,38,10,"{SJ SC3 SKY" 

5390 SOUND 1,345,5:G0T0 5619 

5408 FOR T=® TO 30:NEXT T 

541@ CHAR.30,6 ‚"{SU SC3 SI)" 

5420 CHAR,30,7 ‚"{SB 5Q SPACE SQ SB)" 

5430 CHAR,30,8 ‚"{SB SPACE3 SB}“ 

54490 CHAR,30,9 ‚"{SB SQ SPACE 5Q SB}" 

54590 CHAR,30,10,"{S5J SC3 SK}" 

5460 SOUND 1,383,5:60T0 5618 

5478 FOR T=® TO 30:NEXT T 

5488 CHAR,30,6 ‚„"{SU SC3 SI" 

5498 CHAR,30,7 ‚„"(SB SQ SPACE SQ SB}" 

55080 CHAR,30,8 ‚"{SB SPACE SQ SPACE SB}" 
551@ CHAR,30,9 ‚"{SB 5Q SPACE 5Q SB)“ 

5520 CHAR,30,10,"{SJ SC3 SKY" 

5538 SOUND 1,453,5:G0TO 5618 

5548 FOR T=® TO 30:NEXT T 

5550 CHAR,30,6 ‚„"{SU SC3 SI" 














5560 CHAR.30,7 „"({SB 303 SB}" 
5578 CHAR,30,8 ‚"{SB SPACE3 SB}" 
5588 CHAR,30,9 ‚"{SB 303 SB}" 
5590 CHAR,30,10,"{5J 5SC3 SKY" 


5608 SOUND 1,516,5 

5610 GET W$ 

9620 IF W$=CHR$(32) THEN 5630:ELSE 5178 

36380 ON D GOTO 5640,5700,5670,5730 

5640 IF S(1)<>66 AND S(1)<>103 OR S(2)<>66 A 
ND 5(2)<>183 THEN 57990 

3650 IF S(3)<>66 AND S(3)<>103 OR S(4)<>66 A 
ND 5(4)<>103 THEN 5798 

5660 IF R<>6 THEN 5760:ELSE 5798 

3670 IF G(1)<>78 AND G(1)<>103 OR G(2)<>70 A 
ND G6(2)< >13 THEN 5790 

3688 IF G(3)<>70 AND G(3)<>103 OR G(4)<>70 A 
ND 6(4)<>183 THEN 5790 

5698 IF R<>6 THEN 5768:ELSE 57998 

5700 IF N(1)<>74 AND N(1)<>103 OR N238 374 A 
ND N(2)<>103 THEN 5799 

5710 IF N(3)<>74 AND N(3)<>103 OR N(4)<>74 A 
ND N(4)<>103 THEN 5790 

5720 IF R<>6 THEN 5760:ELSE 5790: 


40 


<83> 
<9> 


<1> 
<608> 
<119> 


<114> 
<151> 
<78> 
<91> 
<26> 
<52> 


<189> 


<200> 
<241> 
<185> 
<10> 
<17> 
<188> 
<49> 
<105> 
<170> 
<255> 
<80> 
<163> 
<103> 
<97> 
<175> 
<202> 
<69> 
<150> 
<135> 
<72> 
<9> 
<246> 
<29> 
<140> 
<221> 
<26> 
<244> 
<58> 
<60> 
<1077> 
<210> 
<35> 
<96> 
<213> 
<1287> 
<130> 
<166> 
<24> 
<105> 
<65> 
<128> 
<972 
<200> 
<158> 
<186> 
<189> 
<114> 


<1477 
<45> 


<1717 


<246) 


<144> 
<201> 


<1904> 


<2> 
<2317> 


5730 IF A(1)<>78 AND A(1)<>103 OR A(2)<>78.A 
ND A(2)<>103 THEN 5798 
5740 IF A(3)<>78 AND A(3)<>103 OR A(4)<>78 A 
ND A(4)<>103 THEN 5798 


5750 IF R<>6 THEN 5760:ELSE 5798 
5760 CHAR,26,12,STR$ (0) +". SPACE} VERSUCH" 
5770 FOR T=® TO 500:NEXT T:GOTO 5139 
‚5780 :R=® 

5798 0=® 

5800 RETURN 

58108 REM **# SPIELFELD WERK EHI NK KA 
582® COLOR 1,1 

5830 IF R=® THEN RETURN 


5849 
5858 
5869 
5870 
5888 
5898 


IF .Q=® THEN Q=1:RETURN 

IF C=8 THEN C=1: RETURN 

IF U=8 THEN U=1:RETURN 

IF B=® THEN Be1: RETURN 
F(8,4)=1:F(6,0)=4:F(10,6)=3:F(4,19)=2 
IF L3=® THEN 6390 

5908 IF WM$="N" THEN 5998 

5918 IF R>6 THEN R=6 

5928 L=R*59 

5938 FOR X=25 TO L STEP 25 

5940 SOUND 1,400+X,5:NEXT X 

5958 L1=-490+X 

5968 FOR X=L1 TO 480 STEP-25 

597@ SOUND 1,X,5:NEXT X , 

5980 : 
5990 IF Z(0)=® AND Z(10)=® AND Z(20)=0 AND Z 
(38) =8 6168 3 

6000 IF G(1)=28 OR G(2)=20 OR G(3)=28 OR G(4 
)=28 THEN F(19,6)=4 

6018 IF G(1)=38 OR G(2)=38 OR G(3)=38 OR G(4 
)=30 THEN F(4,10)=4 

60208 IF G(1)=® OR G(2)=® OR G(3)=® OR G(4)=8 
THEN F(8,4)=4 

6030 : 

6948 IF N(1)=2 OR N(2)=8 OR N(3)=8 OR N(4)=0 
THEN F(8,4)=3 

6058 IF N(1)=10 OR N(2)=18 OR N(3)=18 
)=10 THEN F(6,0)=3 

6068 IF N(1)=38 OR N(2)=3® OR N(3)=39 
)=30 THEN F(4,10)=3 

6078 : 

60880 IF A(1)=8 OR A(2)=® OR A(3)=® OR A(4)=9 
THEN F(8,4)=2 - 

6898 IF A(1)=18 OR A(2)=19 OR A(3)=19 OR A(4 
)=10 THEN F(6,0)=2 

6108 IF A(1)=28 OR A(2)=28 OR 23)=20 
)=20 THEN F(10,6)=2 

6118 

61298 ir S(1)=18 OR S(2)=18 OR S(3)=19 
)=10 THEN F(6,0)=1 

6130 IF S(1)=28 OR S(2)=20 OR S(3)=29 
)=20 THEN F(18,6)=1 

6148 IF S(1)=38 OR S(2)=38 OR 5(3)=308 
)=38 THEN F(4,10)=1 

61508 : 

6160 V=V+1 

6178 V=V-1:IF V=@ THEN RETURN 

6180 X=X1(V):Y=Y1(V) 
6198 IF F(X,Y)=1 THEN 
6208 IF F(X,Y)=2 THEN 
6218 IF F(X,Y)=3 THEN 
6220 IF F(X,Y)=4 THEN 
6230 IF F(X,Y)=5 THEN 6378 

6240 IF F(X,Y)=6 THEN 6388 

6250 IF F(X,Y)=7 THEN 6390 

6268 IF F(X,Y)=8 THEN 64098 

62780 IF F(X,Y)=9 THEN 6418 

6280 IF F(X,Y)=28 THEN 6328 

6298 : 

6308 FOR X=® TO 10:FOR Y=® TO 19 

6310 ON F(X,Y)+1 GOTO 6320,6339,6349,6350,63 
60,6370,6380,6390, 6409, 6419,6429 

6328 COLOR2,2:GSHAPEA$, (X*8) +7, (X*16)+12, 9:6 
OTO 6428 

6338 COLOR2.1:GSHAPEAS, (X*8) +7, (Y*16)+12,0:6 


OR N(4 
OR N(4 


OR A(4 


OR S(4 
OR 5(4 
OR S(4 


6330 
6340 
6359 
6369 


<218> 


<116> 
<5> 
<1187> 
<109> 
<240> 
<2477 
767.3 
<54> 
<997> 
<120> 
<14> 
<1687 
<66> 
<1807> 
<1187 
<25> 
<203; 
<4> 
<182> 
<97> 
<253> 
<95> 
<59> 
<97> 
<173> 


<66> 
<241> 
<243> 


<156> 
<223> 


<233> 
<165> 


<131> 
<7> 


<98> 
<2084> 


<177> 
<47> 


<177> 
149) 


<151> 
<88> 
<129> 
<95> 
<214> 
<2> 
<347 
<66> 
<98> 
<130> 
<162> 
<194> 
<108> 
<140> 
<70> 
<228> 
<240> 


<1237 
<118> 
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OTO 6428 


6348 COLOR2,3,6:6SHAPEA$, (X*8) +7. (Y*16)+12,0 


:G0OTO 64208 


6350 COLOR2,6,5:6SHAPEA$, (X*8) +7, (Y*16)+12,0 


:G0OTO 64208 


6360 COLOR2,8,6:GSHAPEA$, (X*8) +7, (Y*16)+12,0 


:GOTO 6420 


6370 COLOR2,8,4:GSHAPEF$, (X*8) +8, (Y*16)+14,0 


:GOTO 6420 


6380 COLOR2,3,4:GSHAPEF$, (X*8) +8, (Y*16)+14,0 


:GOTO 6420 


6390 COLOR2,1:GSHAPEF$, (X*8) +8, (Y*16)+14,0:6 


OTO 6428 


6400 COLOR2,6,4:GSHAPEF$, (X*8)+8, (Y*16)+14,0 


:GOTO 6428 
64108 
6420 
6430 
6440 
6450 
6460 
6470 
64808 
6490 
6508 
6510 
6520 
6530 
6549 
6550 
6568 
6570 
6589 
6598 
6688 
6619 
6620 
6638 
6648 
(1)=70:2(70)=4:W=790:G60T0O 6848 

6650 IFS(C)=G(2)ORN(U)=G(2)ORA(B)=G(2) 
(2)=79:2(71)=4:W=71:60TO 6840 

6660 IFS(C)=G(3)ORN(U)=G(3)ORA(B)=6 (3) 
(3)=70:2(72)=4:W=72:G0TO 68408 

6670 IFS(C)=G(4)ORN(U)=G(4)ORA(B)=G (4) 
(4)=70:2(73)=4:W=73:G0T0O 6848 

6680 : 

6690 IFS(C)=Nt1)ORG(N)=N(1)ORA(B)=N(1) 
(1)=74:2(60)=3:W=69:G60TO 6848 

6700 IFS(C)=N(2)ORG(N)=N(2)ORA(B)=N(2) 
(2)=74:2(61)=3:W=61:60T0 6840 

6710 IFS(C)=N(3)ORG(N)=N(3)ORA(B)=N(3) 
(3)=74:2(62)=3:W=62:G0TO 6848 

6720 IFS(C)=N(4)ORG(Q)=N(4)ORA(B)=N(4) 
(4)=74:2(63)=3:W=63:G60T0O 6840 

6730 : 

6740 IFS(C)=AL1)ORG(N)-AL1)ORN(U)=-A(1) 
.(1)=78:2(80)=2:W=89:G0TO 6848 

6750 IFS(C)=AL(2)ORG(N)=-A(2)ORN(U)=A(2) 
(2)=78:2(81)=2:W=81:G0T0O 6840 

6760 IFS(C)=A(3)ORG (N) =A(3)ORN(U)=A(3) 
(3)=78:2(82)=2:W=82:G0TO 6848 

6778 IFS(C)=A(A)ORG (Q)=A(4)ORN(U)=A(4) 
(4)=78:2(83)=2:W=83:G0TO 6848 

6780 : 

6798 IFGLA)=S(1)ORN(U)=S(1)ORA(B)=-S(1) 
(1)=66:2(56)=1:W=-56:G60TO 6848 

6800 IFG(N)=S(2)ORN(U)=S(2)ORA(B)=5(2) 
(2)=66:2(57)=1:W=57:60TO 6848 

6810 IFG(N)=S(3)ORN(U)=S(3)ORA(B)=S(3) 
(3)=66:2(58)=1:W=58:G60TO 6848 

6820 IFG(N)=S(A)ORN(U)=5(4)ORA(B)-S(4) 
(4)=66:2(59)=1:W=59 

6838 

6848 GOSUB 7398 

6850 FOR X=108 TO 900 STEP 20 


IF L3=1 THEN 6170 
NEXT Y:NEXT X 
L3=1 

RETURN 


THEN 
THEN 
THEN 


6648 
6698 
6748 


IF Z(S(C))-4 
IF Z(S(C))=3 
IF Z(S(C))-2 
RETURN 

IF Z(6(Q))-1 
IF Z(6(Q))=-3 
IF Z(6(Q))=2 
RETURN 

IF Z(N(U))-1 
IF Z(N(L) )=4 
IF Z(N(U))=2 
RETURN 

IF Z(A(B))=1 
IF Z(A(B))=4 
IF Z(A(B))=3 
RETURN 


THEN 
THEN 
THEN 


6790 
6690 
67408 


THEN 
THEN 
THEN 


6790 
6640 
6748 


THEN 
THEN 
THEN 


67908 
66408 
6690 


IFS(C)=G(1)ORN(U)=G(1)ORA(B)=G(1), 


COLOR2,8:GSHAPEF$, (X*8) +8, (Y*16)+14.0 


REM *** RAUSSCHMEISSEN He werwik 


THENG 


THENA 
THENA 
THENA 
THENA 


THENS 
THENS 
THENS 
THENS 


6860 SOUND 1,X,2:SOUND 2,X+100,2:NEXT X 


6878 RETURN 


C16-SA 5/88 


<1243 
<168> 
<184? 
<208> 
<69> 
<597 
<31> 


<92> 
<212> 
<97> 
<217> 
<2057 
<2177> 
<127> 
<136> 
<206> 
<1497 
<11> 
<9> 

<26> 
<225> 
<51> 
<101> 
<58> 
<61> 
<91> 
<231> 
<188> 
<2> 
<131> 
<573 


<1637 
<102> 
<42> 


<237> 
<108> 


<157> 
<96> 
<35> 


<230> 
<158> 


<160> 
<99> 
<38> 


<233> 
<208> 


<239> 
<178> 
<117> 


<151> 


<2> 

<58> 
<214> 
<71> 
<126> 





6880 
6898 
15 
69098 
‚58 
6918 
‚70 
6920 
6938 
69409 
6958 
6960 
6979 
69898 
6999 
7908 
7018 
7029 
7938 
7048 
7058 
7068 
7970 
7980 
70998 
7108 
7110 
7120 
7130 
71498 
7150 
7160 
7170 
7180 
7190 


7210 
7220 
7230 
7240 
72590 
7260 
7270 
7280 
7298 
7308 
7310 
7320 
7330 
7349 
7350 
7368 
7370 
73808 
7398 
7408 
7410 
7420 
7438 
7440 
7450 
74608 
7470 
7480 
7490 
7500 
7510 
7520 
7538 
75408 
7558 
7568 
7570 
7580 
7590 
7608 
7610 
7626 


7200. 


PROGRAMME BEE 


REM *** MELODIE STEIN ENDE *++Ht##%* 
SOUND1,169,15:SOUND1,262,15:SOUND1 345, 


SOUND1,1019,15:SOUND1,571,50:SOUND2, 262 
SOUND1,1019,15:SOUND1,571,70:SOUND2, 262 


RETURN 
REM *** SPIELENDE Wine 


FOR X=3 TO 21 

CHAR, 25,X, "{SPACE14}" 

NEXT X 

CHAR, 27,3, "1. {SPACE}PLATZ" 

CHAR, 28,5,N$ (1) 

CHAR. 27.10, "2. {SPACE}PLATZ" 

CHAR, 28,12,N$ (2) 

IF SP>2 THEN 7020:ELSE 7070 

CHAR, 27,15,"3. {SPACE} PLATZ" 

CHAR, 28,17,N$ (3) 

IF SP=4 THEN 7050:ELSE 7070 

CHAR, 27,20, "4. {SPACE}PLATZ" 

CHAR, 28,22,N$ (4) 

COLOR 1,5,4 

FOR X=26 TO 38 
CHAR,X,7,"*":CHAR,X-1,7, "(SPACE)" 
FOR T=® TO 7@:NEXT T 

NEXT X 

CHAR, 38,7, "( SPACE} " 

FOR X=6 TO 1 STEP-1 

CHAR, 38,X, "*":CHAR, 38, X+1, "(SPACE)" 
FOR T=® TO 70:NEXT T 

NEXT X 

CHAR, 38,1, "( SPACE} " 

FOR X=37 TO 25 STEP-1 
CHAR,X,1,"*":CHAR,X+1,1,"{SPACE)" 
FOR T=® TO 70:NEXT T 

NEXT X 

CHAR, 25,1, "(SPACE)" 

FOR X=2 TO 7 

CHAR, 25,X, "*":CHAR, 25,X-1, "{SPACE}" 
FOR T=0 TO 70:NEXT T 

NEXT X 

GOTO 7089 


S 


THEN R=1:60T0 
THEN R=2:60T0 
THEN R=3:G60T0 
THEN R=4:G60T0 
THEN R=5:60T0 
THEN R=6:60T0 
THEN R=9:60T0 


IF Wge"1" 
IF Wwg="2 I} 
IF Wg=" 3" 
IF Wg="4" 
IF wg="5" 
IF W$="6" 
IF w$="9 „ 


5630 
5630 
5630 
5638 
5630 
5630 
5630 
REM ur ZUG UEBERNEHMEN wre 
GOSUB 7450 

IF W=103 THEN RETURN 
V=V+1:X1(V)=X:YL(V)=Y 
FIX,YVI-ZIMIX,Y)) 

RETURN 


IF W=193 THEN RETURN 
IF W>28 THEN 7690 

IF W>48 THEN 7890 

IF W=0 THEN X=0:Y=4: 
IF W=1 THEN X=1:Y=4: 
IF W=2 THEN X=2:Y=4: 
IF W=3 THEN X=3:Y=4: 
IF W=4 THEN X=4:Y=4: 
IF W=5 THEN X=4:Y=3:RETURN 

IF W=6 THEN X=4:Y=2:RETURN 

IF W=7. THEN: X=4:Y=1: RETURN 

IF W=8 THEN X=4:Y=9:RETURN 

IF W=9 THEN X=5:Y=0:RETURN 

IF W=18 THEN X=6:Y=8:RETURN 
IF W=11 THEN X=6:Y=1:RETURN 
IF W=12 THEN X=6:Y=2:RETURN 
IF W=13 THEN X=6:Y=3: RETURN 
IF:W=14 THEN X=6:Y=4: RETURN 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


<161> 


<213> 
<193> 


<43> 
<177> 
<161> 
<1> 

<65> 

<125> 
<46> 

<166> 
<10> 

<44> 
<7> 

<85> 
<121> 
<78> 

<96> 

<134> 
<110> 
<221> 
<60> 

<78> 
19) _ 
<122> 

<30> 
<49> 
<128> 
<69> 
€137> 
<230> 
<15> 
<179> 


: <£120> 


<172> 
<231> 
<94> 
<229> 
<170> 
<217> 
<198> 
<208> 
<17> 
<44> 
<71> 
<98> 
1257 
<152> 
<213> 
<32> 
<71> 
<85> 
<58> 
<113> 
<26> 
<177? 
<103> 
<109> 
2657 
<99> 
<101> 
<123> 
<145> 
<167> 
<189> 
<191> 
<1937 
<195> 
<197> 
<219> 
<225> 
<253> 
<25> 
<53> 
<81> 
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EEE PROGRAMME 


W=15 


7638 IF THEN X=7:Y=4 : RETURN <105> 
7648 IF W=16 THEN X=8:Y=4: RETURN <129> 
7658 IF W=17 THEN X=9:Y=4: RETURN <153> 
7660 IF W=18 THEN X=10:Y=4: RETURN <129> 
7678 IF W=19 THEN X=18:Y=5: RETURN <158> 
7680 IF W=20 THEN X=18:Y=6:RETURN <142> 
7698 IF W=21 THEN X=9: Y=6: RETURN <194> 
7708 IF W=22 THEN X=8:Y=6: RETURN <2008> 
7710 IF W=23 THEN X=7:Y=6: RETURN <206> 
7720 IF W=24 THEN X=6:Y=6: RETURN 
7730 IF W=25 THEN X=6:Y=7:RETURN 
7748 IF W=26 THEN X=6:Y=8:RETURN 
7750 IF W=27 THEN X=6:Y=9: RETURN 
7760 IF W=28 THEN X=6:Y=1®:RETURN 
77780 IF W=29 THEN X=5:Y=10:RETURN 
7788 IF W=38 THEN X=4:Y=10: RETURN 
7798 IF W=31 THEN X=4:Y=9 : RETURN 
7808 IF W=32 THEN X=4:Y=8:RETURN 
7810 IF W=33 THEN X=4:Y=7: RETURN 
7820 IF W=34 THEN X=4:Y=6:RETURN 
7838 IF W=35 THEN X=3:Y=6:RETURN 
7848 IF W=36 THEN X=2:Y=6:RETURN 
7858 IF W=37 THEN X=1:Y=6:RETURN <60> 
7860 IF W=38 THEN X=0:Y=6: RETURN <66> 
7878 IF W=39 THEN X=0:Y=5: RETURN <68> 
7880 IF W=48 THEN X=1:Y=5: RETURN <46> 
7890 IF W=41 THEN X=2:Y=5: RETURN <70> 
7900 IF W=42 THEN X=3:Y=5 : RETURN <94> 
7910 IF W=43 THEN X=4:Y=5 : RETURN <118> 
7920 IF W=44 THEN X=5:Y=1: RETURN <908> 
7930 IF W=45 THEN X=5:Y=2: RETURN <118> 
7949 IF W=46 THEN X=5:Y=3: RETURN <1477 
7950 IF W=47 THEN X=5:Y=4: RETURN <175> 
7960 IF W=48 THEN X=9:Y=5: RETURN <239) 
7978 IF W=49 THEN X=8:Y=5 : RETURN <2457 
7980 IF W=5@ THEN X=7:Y=5: RETURN <205> 
7998 IF W=51 THEN X=6:Y=5:RETURN <211> 
8008 IF W=52 THEN X=5:Y=9: RETURN <13> 
8010 IF W=53 THEN X=5:Y=8: RETURN <15> 
8020 IF W=54 THEN X=5:Y=7: RETURN <17> 
8030 IF W=55 THEN X=5:Y=6: RETURN <19> 
8048 IF W=56 THEN X=®:Y=1:RETURN <180> 
8050 IF W=57 THEN X=1:Y=1:RETURN <204> 
8060 IF W=58 THEN X=0:Y=9:RETURN <197> 
8070 IF W=59 THEN X=1:Y=®:RETURN <221> 
8080 IF W=68 THEN X=19:Y=9:RETURN <89> 
8098 IF W=61 THEN X=9:Y=9: RETURN <138> 
8100 IF W=62 THEN X=10:Y=10: RETURN <1597 
8110 IF W=63 THEN X=9:Y=10: RETURN <168> 
8120 IF W=78 THEN X=9:Y=@:RETURN <50> 
8130 IF W=71 THEN X=9:Y=1 : RETURN <78> 
8148 IF W=72 THEN X=10:Y=0:RETURN <37> 
‚8150 IF W=73 THEN X=10:Y=1:RETURN <66> 
8168 IF W=80 THEN X=1:Y=10:RETURN <139> 
8170 IF W=81 THEN X=1:Y=9: RETURN <154> 
8180 IF W=82 THEN X=0:Y=10:RETURN <168> 
8190 IF W=83 THEN X=0:Y=9: RETURN <175> 
8200 END <168> 


ENDE DES LISTINGS 





Liebe Leser, 


wie Sie vielleicht schon 
bemerkt haben, fehlten in 
Heft 4/88 im Programm 
KIKSTART im zweiten Teil 
zwei Zeilen. Wir entschul- 


42 


Korrektur 





digen uns dafür und rei- 
chen hiermit die fehlenden 
Zeilen nach. 

Die Red. 








3108 54 20 39 37 20 31 33 36 ::6B 
3110 2C 31 33 31 20 37 39 20 41 






Gehirn-Akrobatik 
in Cross-Liner 


Hier haben wir einen Lecker- 
bissen für alle Strategie-Fans. 
Cross-Liner ist ein Denkspiel, 
mit einem wirklich interessan- 
ten Spielverlauf. Dabei ist das 
Spielprinzip einfach zu verste- 
hen. Bereits nach kurzer Zeit 
ist man am Tüfteln und Kno- 
bein, um möglichst hohe 
Punktzahlen zu erreichen. 


Das Spiel ist so konzipiert, daß 
es für alle Altersgruppen geeig- 
net ist. Außerdem ist es ein 
Solo-Spiel, für das man keinen 
Mitspieler benötigt. Der Reiz 
des Spiels besteht in den un- 
überschaubaren Kombina- 
tionsmöglichkeiten, die sich im 
Spielverlauf entwickeln. Der 
anfängliche Eindruck, daß es 
sich bei Cross-Liner um ein 
Glücksspiel handelt, tritt mit 
zunehmender Übung zurück, 
so daß planerische und logi- 
sche Aspekte den Spielverlauf 
bestimmen. Obwohl das Pro- 
gramm auf dem C16 ohne Er- 
weiterung läuft, hat es einiges 
zu bieten. 


Das Spiel selbst macht Spaß, 
und auch die Grafik ist gut. 
Leider war es aus Speicher- 
platzgründen nicht möglich, 
einmal gezogene Verbindun- 
gen wieder zu löschen, wo- 
durch die Übersichtlichkeit et- 
was leidet. Dafür kann aber 
wirklich jeder Leser in den 
Genuß dieses ungewöhnlichen 
Spiels kommen. 


Das Spiel wird mit dem Joy- 





stick in Port 1 gesteuert. Die 
Aufgabe besteht darin, 4*10 
Zahlenlose, aufgeteilt in 4 
Farbgruppen, auf einer Fläche 
von 5*5 Feldern so geschickt 
zu plazieren, daß eine mög- 
lichst hohe Punktzahl erreicht 
wird. Die Lose werden per Zu- 
fall ausgewählt. Nun kann ein 
weißes Sternchen am Spielfeld- 
rand rund ums Feld verscho- 
ben werden. Ein Druck aufden 
Feuerknopf bewirkt, daß alle 
Felder dieser Reihe sich um 
eine Position verschieben. Das 
letzte Feld verschwindet, im er- 
sten Feld wird das Los abge- 
legt. Fallssich auf den angren- 
zenden Feldern um das einge- 
fügte oder auch um ein ver- 
schobenes Los ein Los mit der 
gleichen Farbe befindet, so 
werden nun Querverbindungen 
zwischen diesen Losen ge- 
schaffen. Diese Verbindungen 
werden zu einem festen Be- 
standteil der Lose und bei ei- 
ner eventuellen Verschiebung 
mit verschoben. 


Verläßt ein Los, das alle acht 
möglichen Verbindungen ent- 
hält, das Spielfeld, so wird es 
zum Cross-Liner und kann er- 
neut an der Verlosung teilneh- 
men. Nach abgeschlossener 
Plazierung erscheint auf dem 
gesetzten Los ein Cursor 
({revers dargestellt), der hori- 
zontal oder vertikal entlang be- 
stehender Verbindungen be- 
wegt werden kann, wobei er 
hell markierte Zahlen hinter- 
läßt. Nach ”FIRE” werden die 
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PROGRAMME EEE 


200 CL=3:60SUB378 :VK=VK-1:CL=6::G0SUB370::RETU 
RN <8> 





210 IFVK=80RVK=21THEN229 : ELSERETURN <112> 
228 CL=3:60SUB37® :HK=HK+1 :CL=6::60SUB370:RETU 
RN <174> 
230 IFVK=80RVK=21THEN249 : ELSERETURN <160> 
2408 CL=3:G0SUB37® :HK=HK-1 : CL=6::605UB37® :RETU 
"RN <210> 
258 IFHK=OANDVK=0THEN11® <50> 
260 IFHK=BANDVK=21THEN110 <165> 
278 IFHK=21ANDVK=-®THEN11® <226> 
280 IFHK=21ANDVK=21THEN11® . <135> 
298 IFHK=OTHENRI=3 <135> 
300 B=8:H=2: FORA=1TOHK: IFB=-4THENH=H+1 :B=® <213> 
310 B=B+1:NEXT . <42> 
320 IFV=1ANDHK>OTHENRI=1 <226> 
330 B=8:V=2:FORA=1TOVK : IFB=ATHENV=V+1 :B=® <129> 
348 B=B+1 :NEXT: IFH=7THENH=6 :RI=4 <115> 
350 IFV=7THENV=6:RI=2 <160> 
360 RETURN <247> 
370 COLOR1,2,CL:CHAR1,HK,VK.02$+"*" :RETURN <103> 
380 ONRIGOTO399,439,478,51® <101> 
Werte aller hellen Zahlen auf- Das Programm besteht aus ei- ee ee <134> 


addiert und dem Konto 
(Punktzahl) gutgeschrieben. 


nem Basicteil, der mit Hilfe des 
Basic-Checksummers einge- 


488 S$(H,V)=S$(H,V-1) :GOSUB820 :NEXT 7 
410 GOSUB830 : FORA=1T08:F%(A,H, 2)=@:NEXT:V>2: 














Die Zahl dieser Züge ist aber tippt werden sollte. Das Ab- | GOSUBSS@ ;GOSUBS20 :H1=H a 
: ? 420 FORA=H1-1TOH1+1 :H=A: FORV=2T06 :GOSUB670:N 
begrenzt. Jedes Los, das ge- speichern kann unter einem | ExT;NEXT:H=H1:V=2:RETURN - <71> 
zogen wird, erhöht diese Zahl beliebigen Namen erfolgen. | 430 V=2:G0SUB848 : FORV=2T05 :G0OSUB838 : FORA=1TO 
um eins, jeder Cross-Liner um Viel Spaß! a2 :F%(A.H,V)=F%(A,H,V+1) NET Be = > 
f a Fe 49 S$(H,V)=S$ (H, V+1) :GOSUB820:N 32> 
rei. 
drei. Durch die Züge wird diese 450 V=6:G0SUB838 : FORA=1T08: F%(A,H, 6)=@:NEXT: 
Zahl aber wieder vermindert. GOSUB550 :GOSUB828 :H1=H <22> 
Es kann also durchaus günstig Programmname: Cross- 460 FORA=H1-1TOH1+1:H=A: FORV=6T0O2STEP-1 :G0SU 
sein, die Zuganzahl zu sam- Liner - B670 :NEXT:NEXT:H=H1 :V=6 :RETURN <235> 
mein, um möglichst viele | Computertyp: a ET SRDEmEL ITS ON 1225 
Punkte zuerreichen. NachAb- | C16/116/Plus 4 480 S$(H,V)=S$ (H-1,V) :GOSUB820 : NEXT <163> 
rechnung der Cursor-Züge wird Lauffähig: Disk. u. Kass. 490 H=2:G0SUB830 : FORA=1T08:F%(A,2,V)=®:NEXT: 
dann ein neues Los gezogen. Besonderheiten: Ausge- GOSUB558 :GOSUB828B : V1=V <230> 
Das Spiel endet, wenn alle | 500 FORA=V1-1TOV1+1:V=A: FORH=2T06 :GOSUB670 :N 
son ! fallen gutes Strategiespiel EXT: NEXT: V=V1 :H=2 : RETURN <185> 
Lose ausgespielt wurden. Die mit vielen verschiedenen 518 H=2:60SUB848 : FORH=2T05 :GOSUB830 : FORA=1TO 
verschiedenen Helligkeitsstu- Kombinationsmöglichkei- 10:F%(A,H,V)=F%(A,H+1,V) :NEXT <229> 
tenges Bileschienednen.nur „| ten a ee 
der besseren Übersicht. GOSUBSS59:GOSUBB20: VI FE " 8115) 
540 ‚FORA=V1-1TOV1+1: V=A: FORH=6TO2STEP-1 :GOSU 
B670.: NEXT :NEXT: V=V1 :H=6.:RETURN <136> 
BET TR 550 .F%(9,H,V)=C0%(X1) :F%(10,H,V)=X2 <46> 
ee et lee 
‚21,2)= (2$ .2):S$(H,V)= 63 
C-16 LISTING + CHECKSUMMEN (OC V1.0) 570 RETURN <202> 
EN =u " 
10 COLOR®,1:SCNCLR:GOSUB1399 :G0OT01590 <91> En en 
20. G0SUB+450: COLOR3, 1 <38> |600 IFF%(3.H,V)=1THENMID$ (U$,14,1)="1C@}":MI 
30 GOSUB1400:60SUB1320 <231> |Dg(u$,23.1)="(CN" <6> 
= ae VK=0:CL=6 :G05UB37® a a ca an A ; 3 2 Su en ex ro 
=1:H=1:V=1:HK=®: VK=®:CL=6: < 628 IFF%(5,H,V)= (U$,30,2)="{CW CK" 
a a 8 638 IFF%(6,H,V)=1THENMID$ (U$,29,1)="{SN}" € <120> 
S > 1648 IFF%(7,H,V)=1THENMID$ (U$,11,1)="(C@":MI 
78 COLOR1,C0%(X1) ,3:CHAR1,1,1,01$:G0SUB117®: D$ (U$ ,20,1)="(CT}" = <157> 
F%(12,H,V)=1:G0SUB870 :GOSUB1030 <128> | 650 IFF%(8,H,V)=1THENMID$ (U$,2,1)="(SM" <191> 
80 GOSUB1299 :GOSUB1270 : IFLO=40THEN1510 <252> | 660 S$(H,V)=U$: RETURN 2275 
98 GOSUB1370:G0T049 <25> | 670 IFH=1THENH=2 <246> 
2 FORA=6TO1STEP-1 : VOLA:SOUND1 ,50,5:NEXT: RE BL 680 IFH=7THENH=6 <56> 
690 IFV=1THENV=2 <122> 
118 IFJOY(1)=5ANDVK< 21THENGOSUB17® <173> | 700 IFV=7THENV=6 <188> 
128 IFJOY(1)=1ANDVK>OTHENGOSUB19O <68> 710 IFF%(9,H,V)=2THENRETURN <72> 
130 IFJOY (1) =3ANDHK< 21THENGOSUB21® <223> | 720 FR=F%(9,H,V <96> 
148 IFJOY(1)=7ANDHK>OTHENGOSUB23® <179> | 7308 IFF%(9,H,.V-1)=FRTHENF%(1,H,V)=1 <114> 
er en an 748 IFF%(9,H+1,V-1)=FRTHENF&(2,H,V)=1 <23> 
. „H+1,V)= ‚H.V)= <242> 
178 IFHK=00RHK=21THEN180 : ELSERETURN <17> Er lg a > en a i 2 n =1 <75> 
In CL=3 :60SUB37® : VK=VK+1 : CL=6 :GOSUB378 : RETU Gods 778 IFF%(9,H,V+1)=FRTHENF&%(5,H,V)=1 <225> 
z 780 IFF%(9,H-1,V+1)=FRTHENF%(6,H,V)=1 <148> 
190 IFHK=BORHK=21THEN200 : ELSERETURN <194> | 798 IFF%(9 .H-1.V)=FRTHENF&(7.H.V)=1 <115> 
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808 IFF%(9,H-1,V-1)=FRTHENF%(8,H,V)=1 

810 U$=S$ (H,V) :GOSUB58® : GOSUB829 : RETURN 

828 COLOR1,F%(9,H,V) ,F%(11,H,V) :CHAR1 ,H*4-7, 
V*4-7,5$(H,V) :RETURN 

830 COLOR1,2,F%(11,H,V) :CHAR1,H*4-7 ,V*4-7 ,L$ 
: RETURN 


840 B=0:FORA=1T08: IFF%(A,H,V)=1THENB=B+1 

850 NEXT: IFB=8THENGOSUB1 189 : RETURN 

868 RETURN 

870 IFJ=1THENP4=P4-1 :J=9 :G0OSUB1238: IFP4=®THE 
NRETURN = 


880 J=0:CL=6 :QR$=N2$:GOSUB1190 

898 IFJOY(1)=5ANDV< 6THEN959 

908 IFJOY(1)=1ANDV>2THEN979 

"918 IFJOY(1)=3ANDH< 6THEN999 

928 IFJOY(1)=7ANDH>2THEN1910 

930 IFJOY (1)=128THENCL=6 :QAR$=Q1$:G0SUB1190:R 
ETURN 


948 GOTO87® 

950 IFF%(5,H,V)=@0RF%(1,H,V+1)=®THENGOTO879 

968 AR$=N1$:GOSUB1100: V=V+1:G0OSUB1879:RI=1:J 
=1:G0T0870 

978 IFF%(1,H,V)=BORF% (5,H, V-1)=0THENGOTO0870 

980 QR$=Q1$:GOSUB1108: V=V-1:G0SUB1070:RI=2:J 
=1:G0T0878 

998 IFF%(3,H,V)=00RF%(7,H+1,V)=®THENGOTO878 

1008 NR$=Q1$:G0SUB1108:H=H+1 :GOSUB1979:RI=3: 
J=1:GOT0878 

1010 IFF%(7,H,V)=00RF%(3,H-1,V)=0THENGOTO879 
1820 OR$=Q1$:G0SUB1190:H=H-1:GOSUB1070:RI=4: 
J=1:60T0878 

1038 Hi1=H:V1=V:P2=8:QR$=Q1$ : FORH=2TO6 : FORV=2 
TO6 5 

1049 IFF%(12,H,V)=1THENF%(12,H,V)=®:CL=F%(11 
‚H,V) :G0OSUB1108::G0SUB10898 

1050 GOSUB1270 :NEXT :NEXT:H=H1: V=V1: IFP2=0THE 
NRETURN 

1868 VOL2:FORA=1TOP2:SOUND1,A*2,2:P1=P1+1:60 
SUB1290: NEXT: P2=®: RETURN 

1078 F%(12,H,V)=1:CL=6:CHAR1,1,1,02$:G0SUB11 
08:QR$=N2$ : RETURN 

10880 IFF%(10,H.V)=10THENRETURN 

1098 PU=F%(18,H,V) :P2=P2+PU: RETURN 


1180 U$=S$(H,V) :COLOR1,F%(9,H,V) ‚CL:CHAR1,H*.: 


 4-6,V*4-6 ,QR$+MID$ (U$ ,12,2) 
1110 CHAR1 ,H*4-6 ,V*4-5,,QR$+MID$ (U$,, 21,2) +Q4$ 
:RETURN 
1128 GOSUB1159: IFL%(X1,X2)=1THENCOLOR1 ,CO%(X 
1),3:CHAR1,1,1,01$:G0SUB1170:G60T01120 
1138 CHAR1,1,1,03$+Q1$:COLOR1,CO%(X1) ‚5:G0SU 
B1170:L%(X1,X2)=1:PRINTQ4$ 
1140 P4=P4+1 :G0SUB1238: RETURN 
1158 X1=INT(RND(1)*4)+1:X2=INT(RND(1)*10)+1: 
CHAR1,1,1,01$ 
1168 COLOR1,C0%(X1) ,7 
1178 CHAR1,X1*2+29,X2*2-1,Z$(X2) :RETURN 
1188 CL=7 :GOSUB1308 : VOL6: FORA=1T010 :SOUND1 ‚6 
85,2:SOUND1 ,345,2:NEXT 2 
1198 L% (Y%(F%(9,H,V)) ,F%(10,H,V))=0:CL=4:608 
UB1308 } 
1288 COLOR1,F%(9,H,V) ,3:PRINTQ2$:CHAR1 ‚Y%(F% 
(9,H,V))*2+29,F%(10,H,V)*2-1,Z$(F%(10,H,V)) 
1210 P4=P4+3:60SUB1230 :LO=LO-1 : RETURN 
1228 COLOR1,7,4:CHAR1,24,18,Q1$+"ZUEGE" 
1238 COLOR1,7,6:CHAR1,24,19,Q1$:PRINTUSING'# 
4" PA: RETURN 
"12408 COLOR1,7,4:CHAR1,24,15,Q1$+" { SPACE}TOP{ 
SPACE} " 
12598 COLOR1,7,6:CHAR1,24,16,Q01$: PRINTUSING"# 
##44#" ;P3: RETURN 
1268 COLOR1,7,4:CHAR1,24,12,Q1$+"LINIE" 
1278 COLOR1,7,6:CHAR1,24,13,Q01$: PRINTUSING'+ 
##4##'" ;P2:RETURN 
1288 COLOR1,7,4:CHAR1,24,9,Q1$+"KONTO" 
1298 COLOR1 ,7,6:CHAR1,24,10,Q1$:PRINTUSING’# 
####" ; Pl: RETURN 
1308 COLOR1,8,CL:CHAR1,23,1,"***xxxx".CHAR1, 
23,2,"*CROSS*" 


44 


<224; 
<204> 


<1937 
<9> 
<29> 
<1847 
<2377 
<2437 
<153) 
<139} 
<85> 
<75> 
<98> 
<165> 
<13> 
<188> 


<35> 
<22> 


<1837 
<142> 


<199> 
<1347 


<11> 
<77> 
<132> 
<169) 
<82> 
<99> 
<188> 
<27> 
<177> 
<18> 
<188> 


<113> 
<4> 


<166> 
<113> 
<18> 





<194> 
<139> 
<91> 
<144> 
<3> 
<125> 
<230> 


<68> 
<1477> 


<11> 
<1906 >» 


<211> 
<108> 





1318 CHAR1,23,3,"*LINER*":CHAR1,23,4, "xxwr« 
*" RETURN x - 

1320 C=1:D=1:FORA=2T06 : FORB=2TO6 

1338 COLOR1,2,F%(11,A,B) :CHAR1,C,D,L$:C=C+4: 
NEXT: C=1:D=D+4 :NEXT e 

1348 FORA=1T04 : FORB=1T018:COLOR1 ,CO%(A) ‚3:CH 
AR1,A*2+29,B*2-1,02$+Z$ (B) :L%(A,B)=® 

1358 NEXT :NEXT:GOSUB1379:COLOR1,8,6: FORA=BTO: 
20:CHAR1,23,A,01$+"( SPACE7} " : NEXT 

1368 CL=4 :G0SUB1390 : GOSUB1 280 :GOSUB1 260 : G0SU 
B1249 :60SUB1228 : RETURN 

1378 COLOR1,2,3: FORA=0TO21:CHAR1,A,0,02$+"*" 
:CHAR1,A,21,02$+"*":NEXT _ 

13808 FORA=0TO21:CHAR1,0,A,Q2$+"*":CHAR1,21,A 
‚,‚Q2$+"*" NEXT: RETURN 

1398 COLOR1,2:CHAR1,14,1®, "BITTE{ SPACE}WARTE 
N!" RETURN 

14908 Q1$=CHR$ (18) :Q2$=CHR$ (146) :Q3$=CHR$ (130 
) :Q4$=CHR$ (131) :Q5$=CHR$ (157) :Q6$=CHR$ (17) 
14108 027$=06$+N5$+N5$+05$+N5$ :QB$=" ( SPACE} " : 
L$=01$+N8$+07$+N8$+07$5+N08$+N7$+08$ 

1428 RESTORE14398 :FORA=1T018:READZ1$ ,22$:Z$ (A 
)=21$+06$+05$+Q5$+Z2$ : NEXT : RETURN 

1430 DATA"{SA SB}","{SC SD}","(SE SE}","{SG 
SH}“" "(SI SI" ,"{SK OL CZ EICHE Cape 
SASLR SRETAUST: 35}" ,"{SU SV}","{SW SIT TLS 
Y SZ" ."CCA cB}" 

1448 DATA"{CC cD}“,."{CE CRY" ,W{CG. CHESELCT 
CI" ,"”{CK CL UTCM CN} " 

1450 DIMZ$ (18) :DIMS$(7,7) :DIMF%(12,7,7) :DIML 
%(4,18) :DIMCO%(4) :DIMY%(10) 

1460 C=1:FORA=2TO06 : FORB=2T06: - 

1470 IFC/2=INT(C/2)THENF%(11,A,B)=4:ELSEF&(1 
1,A,B)=3 & 

1488 FORD=1T08:F%(D,A,B)=0:NEXT:F%(9,A,B)=2: 
F%(10,A,B)=11:S$(A,B)=L$:C=C+1 :NEXT:NEXT 
1498 C0%(1)=3:C0%(2)=6:C0%(3)=7:C0%(4)=18 
1588 Y%(3)=1:Y%(6)=2:Y%(7)=3:Y%(10)=4:P1=9:P 
2=9:P4=®:L0=®:A=RND(-TI) :SCNCLR: RETURN 

1518 FORA=9T012:CHAR1,9,A,01$+"ENDE" :NEXT 
1528 IFP1>P3THENP3=P1 :GOSUB1259 

1538 COLOR1,8,6:CHAR1,1,23,Q1$+" { SPACE2}NOCH 
{SPACE}EIN{ SPACE}SPIEL?{ SPACE} (LI=JA{ SPACE} / 
{SPACE}RE=NEIN) { SPACE3} " 

1548 RESTORE1588: FORC=1T08 : READSO:GOSUB128: F 
ORB=1T0159 :NEXT: NEXT 

1558 IFJOY (1)=7THENSCNCLR : GOSUB1390 :GOSUB146 
8:GOT038 5 

1568 IFJOY(1)=3THENEND 

1578 GOTO0155®8 

1588 DATAS571,453,516,262,262,516,571,453 
1598 DATA162,0,189,0,208,157,0,60,189,0 

1608 DATA209,157,0,61,189,0,210,157,0,62 
1618 DATA189,0,211,157,0,63.202,208,229,96 
1620 RESTORE1598 : FORA=832T0861 :READB: C=C+B:P 
OKEA,B: NEXT 








‚1638 COLOR4,2:POKE65298,0:POKE65299, 68 


1648 SYS832 :POKES5, 255: POKES56,59:CLR: RESTORE 
1659 

1658 DATA65,255,128,128,128,128,129,135,135 
1660 DATA66,255,1,65,65,193,193,193,193 
1670 DATA67,129,129,129,129,129,129,128,255 
16880 DATA68,193,193,193,193,193,193,1,255 
1690 DATA69,255,128,131,134,149,149,149,128 
1700 DATA70,255,1,193,225,113,113,113, 225 
1710 DATA71,129,131,135,142,143,143,128,255 
1720 DATA72,193,129,17,49,241,241,1,255 
1730 DATA73,255,128,131,134,149,149,140,129 
1740 DATA74,255,1,193,225,113,113,113,225 
1758 DATA75,129,128,140,140,142,135,128,255 
1760 DATA119,97,113,113,113,225,193,1,255 
1778 DATA109,255,128,128,128,128,128,129,131 
1788 DATA102,255,1,33,33,97,225,193,129 
1798 DATA91.135,142,143,143,128,128,128,255 
1808 DATA92,33,97,241,241,97,97,1,255 

1810 DATA81,255,128,143,143,140,140,143,142 
1820 DATA82,255,1,225,225,1,1,193,225 

1830 DATA83,113,113.113,113,225,193,1,255 


<1647 
159} 


<53> 
<87> 
<163> 
<131> 
<90> 
<228> 
<238> 
<40> 
<192> 
<76>-- 


<2247 
<128> 


<160> 
<172> 


<79> 


<1353 
<92> 


<150> 
<36> 
<81> 


<21> 
<222> 


<173> 
<153> 
<118> 
<219> 
<26> 

<181> 
<80> 


<34> 
<94> 


<171> 
<117> 
<96> 
<124> 
<145> 
<147> 
<65> 
<235> 
<225> 
<206> 
<117> 
<4> 
<82> 
<163> 
<20> 
<219> 
<142> 
<242)> 
<235> 
<70> 
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1840 DATAB4,128,128,140.140,142,135,128,255 <87> 
1850 DATA85,255,128,131,134,132,140,141,142 <213> 
1860 DATAB86,255,1.193,97,97,1,193, 225 -  <202> 
1870 DATA87.140,140,140,134.134,131,128,255 <244> 
1880 DATA88,113,113,113,113,225,193,1,255 <135> 
1890 DATA89,255,128,143,143,140,136,128,131 <252> 
1900 DATA90,255,1,225,225,97,97.193, 225 <53> 

1910 DATA97.255,128.131,134,134,142,142,142 <156> 
1920 DATA98,131,128,140,140,142,135,128,255 <138> 
1930 DATA101,255,128,131,134,140,140,140,134 <212> 
1940 DATA103,142,142,142,134,134,131,128,255  <70> 

1950 DATA106,113,113,113,97,97,193,1,255 <217> 
196@ DATA108,255,1,193,97,97,97,129, 225 <26> 

1970 <15> 


Spacecat stein Spiel, das von 
Anfang an die totale Action bie- 
tet. Insgesamt 12 verschiedene 
Angriffswellen mit zahlreichen 
verschiedenen Angreifern 
müssen überwunden werden. 
Das richtige Spiel für Joy- 
stick-Akrobaten, die gerne mal 
ballern. 


Folgende Hindernisse werden 
sich Ihnen in den Weg stellen: 
1. Panzer: Diese feuern auf Ihr 
Raumschiff. Für die Vernich- 
tung eines Panzers erhalten 
Sie 100 Punkte. 

2. Raketen: Sie steigen senk- 
recht auf. Für jeden Treffer 
gibt’s 100 Punkte. 

3. Swarmer: Diese Dinger flie- 
gen immer auf und ab. 10 
Punkte gibt's beim Abschuß. 
4. Vögel: Wenn Sie über eine 
gewisse Höhe hinausfliegen, 
kommt Ihnen ein Schwarm Vö- 
gel entgegen. Abgeschossen 
werden können diese nicht. 
5. Senso: Sehr gefährlich, da 
jeder Senso, den Sie nicht tref- 
ten, Sie ein Leben kostet. Je- 
der Treffer bei einem Senso 
bringt 30 Punkte. 

6. Bomber: Diese kreuzen von 
links kommend den Bildschirm. 
Kein Bomber darf den rechten 
Rand erreichen. Jeder vernich- 
tete Bomber erhöht den 
Punktestand um 100 Punkte. 
Die Bomber werfen mit.... 

7. Bomben: Diese bringen. Ih- 
nen, falls Sie sie abschießen, 
20 Punkte. 

8. Abwehrtürme: Beim Über- 
tliegen des Planeten müssen 
Sie aufpassen, daß Sie keinen 
der Türme rammen. Von den 
Türmen aus wird auf Sie ge- 
schossen. Treffen Sie eines der 
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DATA112,131.129,131,195,135,135,128, 255 


Totale Action in Spacecat! 


Geschosse, so sind Ihnen 10 
Punkte sicher. 

9. Explosionen: Jedes Objekt, 
das Sie abschießen, hüllt sich 
für kurze Zeit in eine Explo- 
sionswolke. Vermeiden Sie den 
direkten Kontakt, da Sie sonst 
das gleiche Schicksal erleiden! 


Pro Level sind 999 Yards zu 
überfliegen. Die Reststrecke 
wird fortlaufend angezeigt. Alle 
10000 Punkte bekommen Sie 
ein Extra-Schiff. Vor dem 
Spielbeginn können Sie einen 
von drei Leveln anwählen. 


Während des Spiels kann mit 


der Taste ”P” eine Pause ein- 
gelegt werden. Bei nochmali- 
gem Druck auf diese Taste 
geht's weiter. 


Hinweise zur Programmein- 
gabe: 

Das Programm geben Sie bitte 
mit Hilfe des MC-Checksum- 
mers .ein. Als Startadresse 
wählen Sie 12800. Nach der 
kompletten Eingabe verlassen 
Sie den Checksummer mit ”X” 


1980 
1998 
2008 
2010 
20208 
20398 
2040 
2050 
2068 
2070 
20808 
2098 
2108 


PROGRAMME BEE 





DATA113.142,142,142,142,134,131,128,255 . <92> 
DATA116,255,1,193,225,113,113,1193, 241 
DATA117,113,113,113,97,225,193,1,255 


DATA118,255,1,193.97,97,113,113,113 


DATA123,113,113,113,113,97,193,1,255 
DATA124,255,128,131,134,134,134,129,135 
DATA127,225,129,1,1,1,1,1,255 
DATA119,1,1,1,10,.151,1,1 3 
DATA125,128,128,128,128,128,128,128,128 


DATA-1 


READA : IFA=-1THEN2® 
FORB=0T07 : READC : POKEA*8+15360+B, C:NEXT 


GOTO2888 


ENDE DES LISTINGS 


— 


— 










Jetzt kann ganz normal geSA- 
VEd werden. Der Start erfolgt 





mit RUN oder SYS4112. 









Programmname: Space- 
cat 

Computertyp: 
Plus 4 
Lauffähig: Disk. u. Kass. 
Besonderheiten: Joystick- 
Akrobaten können in die- 
sem anspruchsvollen Bal- 
| lerspiel ihre Fähigkeiten 
voll entfalten. 


C16/116/ 


m v 
Noch ein Tip zum Spiel: Ner- 
ven behalten. Panik kann Ihr 
Ende bedeuten! 


<168> 
<194> 
<42> 

<157> 
<238> 
<181> 
<198> 
<115> 
<142> 
<148> 
<232> 
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c3 
ı8 
Di 

o7 
Aa 
3 

ac 
cs 
D8 
As 
c9 
48 
sD 
e7 
AB 
ns 
EA 
En 
AS 
38 
44 
oA 
EA 
EA 
c3 
FF 
88 
En 
ns 
83 
En 
EA 
c3 
3B 
eE 
B3 
EA 
83 
er 
@3 
03 
38 
11 

3B 
BE 
B3 
En 
78 
As 
71 
E8 
68 
03 


En 
FF 
38 
n8 
ac 
88 
AB 
As 
En 
ER 
sFr 
3D 
AB 
11 
BC 
EA 
FF 
FF 
15 
c3 
57 
FF 
98 
33 
ac 
Fa 
sD 
A3 
48 
E8 
En 
FF 
31 
AB 
28 
88 
c3 
SB 
sr 
86 
Di 
48 
3 
48 
28 
2) 
0 
En 
EA 
Di 
a1 
sı 
Fa 
EA 
En 
10 
Fa 
ei 
En 
24 
28 
En 
En 
FF 
03 
B3 
72 
EA 
n3 
33 
DB 
c3 
v3 
FF 
83 
83 
ra 
En 
oB 
88 
or 
EO 
En 
c3 


En 
FBd 
s5 
08 
95 
a3 
0» 


EA 
EA 
Fo 
i8 
[1] 
a3 
39 
AD 
AD 
E8 
68 
85 
03 
Fo 
87 
As 
85 
AS 
28 
76 
sı 
EB 
EA 
Fo 
85 
08 
Fe 
a3 
ei 
ı6 
Fo 
LG} 
c3 
38 
c3 
3 
s2 
Bi 
SD 
8D 
ER 
sD 
sı 


83 
En 
ER 
Ba 
28 
ER 
ER 
SD 
ER 
ER 
EA 
Fo 
53 
7ı 
or 
sc 
28 
72 
ıc 


AD 
EA 
83 
zı 
or 
BC 
39 
33 
ns 
ei 
so 
04 


sı24 

::ı7D 

ssEA 

s:DE 

vıBB 

1132 
1:3F 
s:E6 
sın3a 
sıA8B 
9A 
sıF6 
sısE 
s:DA 
sıEE 
s1:EB 
ssFA 
::D3 
sı98 
s:DB 
ı:5B 
sı23 
ss2i 

ss2r 
150 
196 
1:86 
sıBF 
188 
2ıc2 
zıA9 
173 
sı26 
103 
168 
sıCB 
ı331 
ı188 
1:12 


ssE2 


«ı69 
2386 
ı:2D 
sı2ı 
sıSE 
<ı90B 
s:D8 
stES 
ssc2 
ı.:D4 
ı128 
:ıDE 
7A 
°s:BD 
17 
ı:8D 
ı:7B 
1:84 
168 
ssıE 
:ı:3B8 
sı2E 
:1B5 
s:EE 
ı188 
s187 
ssıc 
ss7E 
sıBA 
sıFF 
sıci 
1170 
ssAac 
sAc 
::1D 
sıF7 
ssDC 
‚52 
84 
3sDE 
3:88 
215F. 
s18A 
:3DC 
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PROGRAMME EN 


31808 38 F5 A9 08 8D 58 83 AD ::sES JiAAS ER ER DB Fi CE 11 FF CA 1:69 >1D48 68 EA En ER En ER ER EA sıc3 
>1818 85 FF CS 19 BO 38 AD 98 ııD1 »iAB®O DO ES AD 18 FF 29 FE 8D tıF8 >1DS8 AD 5D 83 CS 88 FO 29 AD tı28 
»isis 83 CS FF DO 29 A2 88 ED 1:83 JiABS 18 FF AS 08 SD 11 FF 68 st1B >1D58 11 FF 89 28 8D 11 FF AC sı8rF 
1828 88 32 CS FF FO IB A9 OF 3:15C JIAc® EA ER ER EA En ER ER ER sıca )1DEB 5D 83 BIS EB ID 8D IS FF tl 
1828 SD 28 32 18 AD SB 83 69 1173 »incs En En EA ER EA ER ER ER s:CA JiD68 8D OF FF CE 5D 83 AD 5D s:ıEB 
>1838 48 SD 10 32 A93 FF SD 988 1154 »inDB EA EA EA EA EA EA EA ER sıD2 >1D78 83 C3 88 DB OB AD 11 FF sıi6 
)1838 32 A9 20 SD 48 32 4C 46 1158 »YiADS ER EA ER ER En ER EA ER sıDA >1D78 23 DF 8D 11 FF EA EA ER 3194 
>1848 18 ES EO On DB DS A2 88 1:SC >JiAE®O EA EA EA ER EA ER EA EA t:E2 >1D88 68 EA ER EA EA AD 52 083 tı2D 
)1848 BD 88 32 C3 FF FO 83 4C 1:E7 ' JIAES En ER En EN EA ER ER EN t:EA )1D88 CS OF DB On AD 51 83 CS 1:C8 
>i8so F3 18 BD 19 32 85 DB BD ı:B2 JiAF®O EA ER EA En En ER EA ER sıF2 >1D38 78 38 83 4C 68 17 A4C 48 Fa 
»1858 28 32 85 DI RB 88 Bi DO ::SE JIAFS ER ER EN ER EA EA EA ER sıFA >1DS8 17 EA EA ER ER ER EA ER ::CA 
>Jis6B CS SC Fa 28 CS 5D FO 84 ::B4 )1BO® AS 81 SD 4D 83 AS CE 8D 1188 >iDAB En ER EA ER EA ER EA ER ::95 
Jis68 C9 SE DB 89 A9 FF 8D AF 1:33 )1B08 Si 83 A9 OC 8D 52 83 AZ 1177 »IDAB ER ER EA EA En ER EA ER sıAD 
>1878 83 ER ER En En AB 088 AS ::5F »iB1® 88 AS 908 SD 69 83 SD 88 ::2E )1DBO EA En En En EN ER EA EA 8185 
>1878 28 81 DB 2a 52 11 28 37 3:59 >iB18 38 SD 88 31 9D 48 31 SD 1:31 1DBS En En EA En En EA ER EA ::BD 
J1888 11 AB 88 Bi DO CS SC FO 2177 »IB28 98 32 SD 88 33 9D 38 33 3:98 >1DCO En EA ER ER EA En En ER tıc5 
1888 88 CS SD FO 04 CS SE DB S:ED »IB28 9D 58 33 EB EB On DB Ei S10D . JIDCB ER En EA ER EA ER EA ER s:CD 
»1898 89 AS FF 8D AF 83 EA EA 1187 >1B38 A9 088 SD 398 83 8D 91 983 1:47 '  >1D08 ER En EA ER EA ER ER EA 2:05 
>)1898 ER ER Ad 88 Bi DO CS 59 EA »1B38 8D 38 83 8D 93 83 SD 9A 1:97 \ JIDD8 EA ER ER ER En EA ER EA 5100 

. »I8ABd DB 11 A9 88 SD 98 32 AD ::7C »1B48 83 8D 48 33 A3 39 8D 46 1:82 JIDEO 088 88 11 21 31 di 51 61 s:6E 
Jisas 11 FF 29 BF 8D 11 FF 4C 8:C6 >1B48 33 8D 47 33 8D 48 33 A9 sı6F JIDES 71 61 51 41 31 21 11 91 81169 
>i8BO F3 18 ER AS DI CS 8C DO s:DC >1B58 39 8D 46 33 A9 88 AE AC 1:CB JIDFB 11 21 31 41 Si 61 71 61 sırfl 
>18B8 O6 AS DB CS SB 38 ES ER t129 »iB58 83 FO 06 i8 69 190 CA DB 1:3B JIDF8 Si 41 31 21 11 81 11 21 1:D8 
»ısca EA En A5 DB SD 18 32 AS sıBC »1BEB FA 85 DO AB 88 AG DO BD t:EB JIEOB AZ 88 BD DB 33 C9 FF FO 1:65 
>»ISC8 DI 9D 28 32 nB BB AS EB aa JiB68 18 27 99 C8 22 ES CS CB :S5E JIEBB 2D AD 83 FF CS 49 BB 2B 1147 
>18D8 81 DO 28 50 11 R9 47 91 SıBl >1B78 18 DO F4 AS 08 SD Ar 93 114 >IEIO AD 81 FF CS 86 BB 24 SD tı208 
Ji8sD8 DB En EA ER AD 11 FF 89 :ı982 »1B78 8D 41 33 ER ER EA En En sn? JIEIS 88 34 28 598 IF AS DB SD sıarf 
JISEO 48 8D il FF DE 38 32 BC 3:35 »18B88 A2. 98 BD 78 26 28 D2 FF s:ı68 JIE2DO EB 33 AS DI 8D FO 33 AS 1215 
»1SES 30 32 B9 88 26 8D OF FF ı1:2C >1B88 E8 E®O 38 DB F5 EA A2 98 sıcE JIE2S FF SD DO 33 A9 28 SD 18 ::133 
»ISF® ER ER ER ES EOS On FO 03 1168 >1B3® A9 88 SD 88 33 SD DA 33 1:28 JIE3® 34 ER 4C 3B IE EN ES EB 1198 
JIBFS 4C 48 18 68 EN EN EA En 3178 >1B98 SD 28 34 EB Ed OD DB FE :1:BA »J1E38 BR DB C? 68 68 68 ER ER TAB 
»1998 AD BI FF C9 82 BO 34’ A2 tı8F >1BAB 68 ER EA EA ER EA EA ER 1119 >IE48 EE 11 34 AD 11 34 C9 85 sır2 
>is08 808 BD 88 33 C9 FF FA 25 1:96 JiBAB En En ER ER ER ER EA En sıAB JiE48 938 B6 AS 88 SD 11 34 EA S:IE® 
>1S18 AD 96 OF CS 28 DB 24 AD 1:37 >iBBB EA EA ER ER EA EA ER EA ::B3 >IES® AD 4C 83 C9 85 BO 81 EN 1178 
»1918 95 OF C9 28 DB 1D AS FF ııla )1BBB En En EA En ER ER En En ::BB JIESB A2 88 BD DB 33 C9 FF FO ııBD 
>1928 8D 88 33 AS 6D 9D 19 33 t:EA »1BCB EA En EA ER ER ER ER EA 8:C3 Y1ESB 83 A4C 45 IF BD EB 33 85 tıE2 
31928 AS OF SD 28 33 A9 88 SD 3:3C YJIBC8 En EA En En ER ER EA EA ::CB YiESB DB BD FB 33 85 DI AND 88 114B 
>1938 38 33 4C 3B 19 ES EB 85 sıE4 >IBD® A2 88 AS 08 SD 48 83 EB- ı:6E JIE7® Bi DB CS SF DO dC AB 05 1:96 
319338 DO CF EA A2 88 BD 88 33 tı9B )1iBD8 EB 96 DA FS A3 91 8D SC 5:3D »IE78 28 85 in 28 F? 14 ac DB s:6D 
>1948 CS FF FO 83 A4C EB 19 BD s:q4F >1BE®O 083 68 ER EA ER EA ER ER 1ıEB JIESBO IE EA AB 008 A3 20 91 DB sıra 
1948 18 33 85 DB BD 28 33 85 ıına >IBEB ER EA En En En EA ER EA EB JIESS ER AD 11 34 CS 84 DB SF sısa 
>1959 Di AB 088 Bi DO CS SF FO ::1D »IBF®O EA ER EA ER EA EA ER-ER ::F3 »1ES® BD 08 34 C9 88 DO 89 28 ıı4A 
)1958 088 AB 28 Bi DA CS 5F DB 1104 JıBF8 EA En ER EA ER EN EA En ::FB JiESS 27 11 28 52 11 AaC CB IE sı2Cc 
>19368 87 208 68 2E 4C EB 28 EA tıBC >1C88 28 SF 11 20 88 14 EN 4C tı6B JiERB CS 81 FO F6 CS 82 08 86 1ı9A 
1968 AB 98 A9 20 Sı DO AB 28 Mi »ICO8 38 2B EN EA 28 08 13 28 1:38 JIERS 28 37 11 4C 9A IE C9 93 1194 
1978 91 DO AD 4E 83 C9 89 DB t17D >JIc1® 80 12 28 48 IE 28 08 2E 1:76 >IEB®O DO 86 28 37 11 ac CB IE 1:68 
)1978 086 28 52 11 28 F6 19 AD tı8C JIC18 AS AS C9 93 98 984 A3 9808 sl >JIEBS C9 984 DO 96 28 47 11 4C 11398 
+1939 4E 83 CS 04 DO 83 28 F& 119A >ICc28 85 A5 28 88 18 EN ER ER 5:15 >1EC® B2 IE 28 47 11 EA ER ER sıcF 
>1938 19 ER ER EA En ER AB 88 ıı62 >1C28,28 DB 28 En En En ER EN EB >IECB AD 88 Bi DA CS 59 DB 15 1134 
>1938 BI D® CS 59 DB ac AS 88 1188 »ic3O n2 30 AB 30 88 DO FD CA 1:B1 >IEDO AS 88 SD DO 33 AD 11 FF :ı2A 
>1998 SD ®88 33 En ER ER 4C EB ııBl >ic38 DB F8 En AD AF 83 CS FF tı9A >1EDS 29 DF 8D 11 FF ER ER EA sıF5 
>»13AB 19 ER AS DI C9 8C DO 87 tırs >1C40 DB 83 4C 00 EC 28 80 En 1:62 >JIEEB 4C 45 IF EA EA Bi DO CS 1:88 
Ji9A8 AS DB C9 58 98 ES ER AS ı6F »1C48 EN Eh EA A2 88 BD 46 33 158 JIEES SF DB 83 AC 76 IE ER AS ::CE 
>1SB8 DB 3D 18 33 AS DI 9D 20 :ı139 >iC50 C9 38 DB BB ES EB 083 DB ::8E >IEF®O DI CS 8C DB 97 AS DB CS ::CE 
)19B8 33 MB BB A3 6C 91 DB AB ss: »ic58 Fa 4C BB 2n ER ER ER AD 3:94 >IEFS 58 98 DS ER AS DI CS Of :1C3 
»1SCO 28 AS ED 391 DO 28 5D 11 sıcı .»iIC6E8 51 83 85 DA AD 52 83 85 sı2c >IF08 DB 87 AS DO CS 98 BO CS ::B9 
J1SC8 AD 98 A9 42 Si DO AB 28 ::D9 >)ICE8 DI 28 37 11 AB 82 Bi 08 81 JIFO8 EA AS DO SD EB 33 AS DI S:DC 
>19D8 91 DB EA AD 84 FF C9 FC ::F9 >»1C78 CS 5A FO CE C8 59 FB cn sıFa >IFI® 8D FO 33 EA AB 88 18 BD t:ı9D 
>1908 98 86 AS FF SD 38 33 ER s:6R >»1C78 28 27 11 EA EA EA AB 282 5:58 »iFiS 88 34 AS 7A Si DO 28 SD SıFF 
JISEB ES EO 85 FO 83 AC 30 19 ::BA >»iC88 Bi DB C9 59 FO BC CS 5A 113 >JiF28 11 AB 88 AS 47 91 DB ER tıFD 
JI1SES 68 AB 88 MS 28 Si DB AB :ıFB >»iC88 FO B8 AD 41 33 CS 25 FO 1147 JIF28 ER ER EB 988 DB 17 AC 18 ::173 
>ISF® 28 Si DB ac 96 19 BD 38 sı22 >JIC9® Bi EA EA EA.AS CE CS 29 :ı38B >iF38 34 B3 DB IF 8D OF FF CE 1170 
>ISF8 33 CS FF DB EB 4C 37 11 117B >JIC98 DB 22 RA9 87 SD 11 FF AZ ııoF JIF38 18 34 AD 11 FF 89 28 8D 1193 
>»iRBB En EA EA AB 94 18 BS IF ı:cı >iCABd 98 AB 08 88 DO FD CA DB ı1:28 >IF48 11 FF ER EA EN ES EB On 1146 
»IABS 83 69 81.99 3F 83 C9 on 1ı7A JICABS F8 AS C6 C9 48 FB FA A2 sıa2 JIF48 FO 83 ac 5n IE 68 EA EA 1135 
>»iAi® DO 88 AS 08 99 3F 083 88 tıD1 >ICBO 88 AB 88 88 DO FD CA DB 1138 >iF58 A4 D3 CO 08 FO 86 28 47 11ES 
»iniS DO EB AD 98 B9 49 83 DI ı1ıB2 >iCB8 F8 ER EA ER AD 41 83 CD 6A JIF58 11 88 DO Fa 68 En ER EA ::1082 
>in28 46 93 FO 085 BO 88 AdC 3B ır6 >ICC® 5C 83 DB iA EE SC 83 AD si6ı »IF6O ER EA ER EA EA EA ER EA 1:67 
»imn28 In CB CO O6 DB EE AB 98 ::48 JIcc8 5C 83 CS OR DB 85 AS 88 196 JIF6S ER ER En EA EA ER ER ER S:6F 
>in3a B3 40 83 99 46 83 CS CO 1108 >ICD® 8D SC 83 EE 5B 93 AS 18 :ıEA >IF7O EA EA ER ER En En ER EA 1177 
Y1A3S 86 DA F5 ER EA EN AB 88 ::ED >ICD8 8D SD 83 En ER ER 28 58 :ı5A >JIF78 ER En EA En ER ER En ER ::7F 
»iAga® 18 BI 48 83 69 30 99 96 1:3C >JICEB ID 4C 88 IC ER ER ER ER SıES >IF88 ER ER EA EA ER EA ER EN 1:87 
»ina8 BC 18 BS 46 83 69 38 39 1:7E >JICES ER ER EA EA ER ER ER ER ::EC JIF88 ER En En En En ER ER ER ::8F 
>J1ASB 13 8C C8 CB 86 DO ES 18 ::9A >ICF® ER ER ER ER EA EA ER ER tırFa JIFS8 EA EA EA ER EA EA ER EA ::97 
JiASB AD 4C 83 69 38 8D ID aC ::CD JICF8 EA ER ER ER EA ER EA ER tırFc Y»IFSS ER En ER EA ER EA ER ER ::9F 
>iASB IS AD 5B 93 69 38 SD 27 ::49 >1D88 AD SE 83 CS 81 DO AF FE Fi >»iFAB En En ER ER En EA ER EA ::9A7 
JiIASS BC A9 61 8D 27 88 68 EA sıır >1D88 38 31 BD 38 31 C9 88 DO ::59 JIFAB ER EA ER ER ER ER ER EA ::AF 
»iATa A9 28 SD 11 FF AD 18 FF ::DF >JiDI® 85 AS 76 3D 30 31 68 ER ::68 >IFBO En ER EA ER EA ER EA EA ::B? 
>»1N78.093 O2 SD IO FF A2 On A9 :DB >1D18 EE 22 BF AD 22 OF CS 76 ::7B >»IFBS ER ER ER En ER ER EA ER ::8F 
>iASB BB 8D OF FF AB 088 88 DB ::ES >iD28 D8 85 A9 72 8D 22 OF EA ::20 >IFCO En EA En ER EA En ER En ::C7? 
JiASS FD EE OF FF AD OF FF CS ı:rn®d )1D28 EE 95 BE AD 95 8E C9 88 ::F7? JIFC8 En EA ER ER EN EA ER ER t:cF 
>1ASB 88 DB Fi CA DO ES AZ 97 t:71 >1D38 DB 86 AS 76 SD 95 BE EA ::ED JIFDB EA EA ER EA En ER ER EA :ıD7? 
»1A3S A9 FF 8D OF FF AB 98 88 :137 >1D38 EE 96 GE AD 96 dE CS 88 ::9E »IFDS FO ES EO DS DB CS CO BB 5177 


»iAAB DO FD CE OF FF AD OF FF 4:94 >1D48 DB 86 AS 76 8D 96 BE ER ::83 »IFEB BB AS AD 98 90 88 88 78 tı?7F 
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BEE PROGRAMME 


>1FES 
>IFFO 
>IFFB 
2088 
2008 
>28198 
>2B18 
>2028 
>2928 
>2038 
>2038 
>29049 
»29048 
>2059 
>2058 
>2069 
>2068 
>2078 
»2078 
>2088 
>2888 
>2099 
>2898 
>20AD 
>2B8AB 
>2988 
>28B8 
>20C8 
2808 
?29D08 
>28D8 
>2DOEO 
>2BEBS 
>2OF® 
>2OFB 
>2188 
»2108 
»2118 
»2118 
’2128 
»>2128 
»2138 
»2138 
>2148 
»2148 
>2158 
»2158 
>2168 
>2168 
2178 
>2178 
>2188 
2188 
>2198 
+2198 
’21AB 
»21n8 
’21B8 
2188 
»21CO 
’21C8 
»21D8 
>21D8 
>2Z1EO 
’Y21EB 
>2IFO 
>2IF8 
»2298 
»2288 
‚22108 
r2218 
»2228 
‚2228 
2238 
2238 
‚2248 
‚2248 
»2258 
2258 
r2268 
‚2268 
»2278 
»2278 
»2280 
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78 
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28 
iF 
IE 
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iE 
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Fo 
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oc 
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08 
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1E 
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ıc 
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7a 
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FF 
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FE 
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FE 
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FF 
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ıF 
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D8 
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D8 
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38 
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c& 
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86 
cc 
co 
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D8 
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Ds 
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ı8 
c6 
c6 
c& 
[-1-2 
c& 
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38 

ı2 
oc 
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08 
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18 
86 
08 
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88 
88 
88 
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ıc 
i8 
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c6 
ED 
EE 
E6 
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3F 
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7Cc 
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7C 
7cC 
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F& 
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28 
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18 
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7c 
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oc 
c& 
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86 
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3C 
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c& 
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s8 
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CT) 
so 
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18 
a8 
18 
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oc 
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a6 
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sD 
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08 
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Fo 
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48 38 
ea 18 
8a so 
18 18 
c6 88 
FE 08 
Fc 88 
?7C: 08 
?E 88 
ca 88 
7c 98 
cs 88 
3c 08 
78 08 
c6 88 
IE 08 
c6 08 
c& 08 
70 vo 
co 80 
72 08 
c& 08 
Fo 08 
18 98 
ıc 80 
18 00 
cs 88 
66 88 
Fo 08 
7E 08 
3c 08 
FC 08 
3C 88 
18 18 
18 28 
28 08 
ca 0» 
08 88 
86 88 
ı8 08 
co oo 
08 00 
28 08 
ec a8 
32 a8 
08 vo 
28 a8 
18 38 
20 08 
18 88 
sa 88 
70 00 
iE 88 
FE 88 
FC 88 
es a0 
Fo 08 
7C 08 
68 88 
7C 00 
Fo 88 
F& 08 
FF 88 
FF @8 
ea 80 
70 08 
18 08 
eo 00 
7F 3F 
FF FF 
Ea Fa 
c6 cc 
c6 FE 
ca co 
ca rs 
c8 ca 
c6 FE 
18 ı8 
7F FF 
FF FF 
Fo E8 
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1187 
s:4F 
s:17 
ı:95 
sı1EO 
s:AD® 
ss IE 
sıaAa 
::78 
s:4E 
s:14 
::98 
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ı:D2 
ı:188 
::D2 
1:68 
1:98 
1:86 
saıc 
::BC 
1216 
ssan 
TıCc6 
sıB8A 
2A 
s:sCc8 
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1708 
»:AD 
ı:98 
::D9 
::D8 
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oc 
4C 
oc 
a2 
33 
As 
EA 
sr 
33 


oc 
99 
6 
33 
c9 
33 
at 
ER 
68 
43 
88 
33 
BD 
85 
Do 
05 
24 
DO 
DO 
a3 
ac 
c93 
ac 
33 
[14] 
A3 
ER 
29 


Fa 
or 
Fo 
EA 
ER 
ER 
ER 
78 
83 
so 
FF 
a3 
Eo 
EA 
88 
78 
oD 
03 
on 
28 
17 
Ac 
33 
D8 
11 
86 
Di 
Fa 
c5 
37 
v 
08 
29 


88 
19 
en 
ai 
ER 
e2 
oc 
c93 
64 
99 
33 
AD 
08 
Ac 
Fo 
a9 
98 
ns 
s2 
en 
c93 
05 
A393 
33 
er 
ER 
33 
8D 
c3 
68 
Di 
11 
28 
en 
28 
12 
08 
5B 
sr 
FE 
AS 
A3 
46 
E8 
68 


38 
1E 
78 
ER 
ER 
En 
ER 
83 
cs 
83 
29 
20 
on 
En 
83 
03 
BD 
85 
DB 
38 
ER 
3B 
21 
o8 
FF 
v2 
Da 
18 
Da 
14 
Gr) 
EO 
EF 


20 
AD 
ac 


EA 
68 
c3 
SF 
23 
si 
c3 
a 

8D 
41 
ca 
sB 
s2 
SF 
ec 
En 
FF 
B8 
oc 
63 
EA 
ER 
c3 
43 
FF 
33 
a8 
AB 
es 
En 
6A 
AS 
Ele) 
2a 
Fo 
29 
21 

71 

si 

EB 

EA 


F& 
18 
18 
ER 
EA 
ER 
ER 
c5 
Di 
Ed 
EF 
1 
D8 
en 
c9 
E93 
78 
Di 
Dc 
28 
en 
83 
or 
AD 
n6 
n2 
35 
20 
Fo 
ng 
28 
88 
8D 


AD 
48 
38 
Gr) 
AD 
ER 
sf 
08 
Een 
oc 
13 
33 
48 
33 
EA 
33 
8 
33 
ER 
EA 
Fo 
ıc 
sD 
sd 
E8 
EA 
os 
33 
Fö 
85 
Lo) 
05 
ıA 
no 
2a 
DB 
EI.) 
EA 
c6& 
ER 
sp 
sı 
Da 
oA 
EA 


D-2=- 0 BWD WU W 
NROUNDOZPNTOTNTD 


>2ABB 
»2n79 
>2A78 
>2Asa 
>2R88 
2238 
»2A38 
>2ARB 
»2AAS 
>2ABO 
»2AB8 
»2ACO 
>2nc8 
»2ADO 
»2ADs 
>2RAEO 
>2AEB 
>2AFO 
>2AFS 
>2B88 
>2B08 
>2B18 
»2B18 
»>2B20 
>2B28 


>2B38 


>»2B38 
»2B48 
>2B48 
»2B59 
»2B58 
>2B69 
>2B68 


>2B78 


>»2B78 
>»2B88 
>2888 
>2B98 
>2898 
>2BAB 
>2BA8 
>2BB9 
>2BB8 
>2BC8 
»2BC8 
>2BD8 
>2BD8 
>2BEO 
>2BE8 
>2BFO 
>)2BF8 
»2c08 
»2C08 
»2cı1®8 
»2cis 
»2c28 
»2C28 
»2cC39 
»2C38 
>2C48 
>»2C48 
»2c58 
»2c58 
>2C68 
Y>2C68 
>»2C78 
»2c78 
>2C80 
>»2C88 
>»2C38 
2098 
>ecaa 
»acas 
>2CB8 
>2CB8 
>2cc8 
>)2Cc8 
>2CD8 
»2cD8 
>2CE8 
»2CE8 


»2CcF8 


>acF8 
»2D88 


ER 
03 
En 
AD 
ne 
c3 
33 
oo 
Eo 
as 
D2 
cs 
ER 
D2 
EN 
D2 
Fo 
85 
27 
D8 
ER 
ER 
28 
18 
e8 
AD 
88 
cs 
ER 
cs 
F& 
cs 
08 
cs 
e8 
cs 
88 
cs 
00 
c3 
Fö 
ac 
28 
28 
08 
28 
17 
28 
19 
e8 
ER 
AD 
8s 
c8 
si 
61 
D® 
FF 
8D 
EE 
CE 
Ce) 
03 
ac 
20 
11 
CE 
e3 
sn 
31 
38 
Da 
31 
8D 
1B 
03 
EA 
EE 
98 
AD 
83 
BD 
4E 
sp 


EA 
28 
ER 
SE 
83 
er 
ca 
BD 


AD 
27 
en 
83 
DE 
Ds 
D8 
46 


83 DO 


es 
FF 
1} 
ER 
FF 
En 
FF 
as 
D8 
33 
Fa 
EA 
En 
8D 
28 
ıC 
4c 
15 
e2 
EA 
03 
28 
04 
ı9 
85 
15 
os 
16 
07 
ı9 
es 
28 
oc 
17 
eo 
12 
oo 
ac 
Do 
28 
18 
EA 
si 
Di 
GE) 
Da 
si 
ER 
a2 
BE 
or 
3 
1 
AD 
ar 
D2 
En 
8D 
a2 
0» 
sD 
33 
Ei 
03 
aA 
28 
ac 
ER 
44 
88 
84 
FF 
88 
ec 
sa 


8D 
EE 
Da 
a2 
E8 
28 
ER 
18 
AO 
c8 
en 
ER 
ER 
11 
3E 
ER 
83 
28 
Do 
28 
D8 
ER 


28 
Da 
28 
DB 
28 
DB 
28 
DB 
28 
ic 
28 
i6 
28 
15 
ec 
ac 
Fo 
ac 
EA 
03 
no 
sp 
20 
08 
ER 
v8 
FF 
FF 
FF 
FF 
sB 
ı8 
FF 
n8 
si 
o8 
38 
e8 
sn 
n3 
8D 
03 


"SE 


08 
En 
33 
n3 
FF 
c3 
33 
c3 
33 


43 
11 
ER 
c93 
45 
08 
BE 
33 
FS 
11 
ac 
86 
08 
Eo 
78 
a3 
63 
08 
22 
EA 
ER 
A393 
28 
ıA 
ER 
c3 
08 


-BC 


28 
oc 
EA 
oc 
88 
oc 
DO 
oc 
Fo 
oc 
08 
or 
88 
c3 
De 
ac 
80 
28 

ic 
20 
28 
oc 
ER 
85 
08 
3 
5D 
cs 
en 
n3 
Aa 
EE 
ca 
[72] 
03 
Een 
28 
08 
83 
n3 
SD 
32 
sa 
[1] 
98 


SD, 


in 
ıc 
ER 
AD 
08 
c3 
85 
c3 
28 
As 


33 
so 
En 
ei 
33 
As 
ER 
8D 
sD 
FF 
83 
CE 
BD 
s3 
0) 
CL) 
18 
As 
E8 
En 
ER 
93 
DS 
sc 
ER 
ei 
19 
29 
17 
20 
EA 
28 
15 
20 
2c 
20 
28 
20 
15 
20 
15 
03 
@c 
ec 
19 
Do 
cs 
20 
20 
ıc 
ER 
Da 
A3 
De 
11 
si 
As 
so 
e8 
oe 
D8 
ER 
c9 
EA 
SD 
8D 
As 
1) 
eo 
E)e} 
33 
sp 
03 
48 
CE) 
En 
ER 
44 
8D 
os 
B8 
FF 
Da 
4E 


c3 
EA 
EA 
Fo 
BD 
33 
EA 
21 
ER 
As 
AD 
4c 
cs 
Da 
a3 
AE 
ca 
D8 
c8 
ac 
En 
20 
11 
08 
EA 
De 
4c 
08 
4c 
e8 
ac 
20 
ac 
Cr) 
ac 
28 
ac 
Fo 
ac 
e8 
20 
Da 
28 
ıc 
28 
2c 
eB 
17 
08 
EA 
EA 
AD 
sc 
c8 
EYJ 
08 
38 
8D 
88 
FF 
ES 
En 
88 
ER 
11 
4D 
oc 
sp 
31 
Cy) 
E8 
98 
8D 
33 
Y) 
En 
EA 
33 
a4 
Ba 
35 
Fo 
25 
SD 


04 
ER 
EA 
[-} 
45 
SD 
ER 
ec 
EA 
13 
ac 
83 
26 
FS 
93 
4C 
D8 
BD 
co 
13 
EA 
D2 
28 
ic 
ER 
03 
oc 
19 
oc 
19 
oc 
17 
oc 
19 
oc 
17 
oc 


‚28 


oc 

19 
08 
or 
Fo 
c9 
Fö 
20 
Fö 
28 
15 
EA 
ER 


si 
a9 
08 
c8 
8D 
or 
De 
Do 
A939 
cE 
D8 
n3 
28 
03 
8D 
so 
9D 
33 
Ed 
03 
33 
28 
8D 
EA 
ER 
c3 
33 
3C 
a2 
24 
a9 
98 


08 
ER 


En : 


6a 
33 
45 
a2 
ES 
ER 
20 
03 
EA 
28 


ER. 


20 
03 
Fa 
ı8 
18 
2B 
En 
FF 
08 
ac 
EA 
20 
ıc 
EA 
ıc 
28 
ic 
28 
ıc 
20 
ıc 
20 
ıc 
28 
ıc 
28 
16 
20 
28 
on 
28 
28 
03 
eo 
28 
ER 
ER 
3 
DB 
se 
A9 
sı 
11 
FF 
FD 
Fa 
os 
sB 
3 
s3 
D8 
a3 
s2 
03 
48 
s3D 
an 
sn 
03 
4 
4F 
EA 
EA 
07 
En 
AD 
ao 
AD 
FF 
33 


ER) 
»2Dı18 
yepie 
>2D28 
y2D28 
>2D38 
»2D38 
>2D48 
>2D48 
»2D58 
>2D58 
>2Ds8 
»eDs8 
>2D78 
»2D7& 
»2D88 
y2D88 
>2038 
»2D38 
»2Dn8 
>eDa8 
>2DB8 
>2DB8 
>eDca 
y2Dc8 
>2DD8 
»2DD8 
>2DEO 
JenEs 
>2DF8 
y2DF8 
>2E08 
y2E08 
>2E1O 
yeE16 
yaE2® 
y2E28 
>2E38 
y2E38 
>2E40 
)2Ea8 
)2ES0 
J2ES58 
J2Esa 
)2ESB 
>2E78 
)2E78 
>2E88 
J2E88 
)2Es8 
y2ES8 
>2ERB 
J2ERB 
>2EBB 
)2EBB 


ns 
ca 
23 

ER 
cs 

so 
Di 

16 
20 

20 
eo 

c93 
83 
ac 

11 

e3 
EA 
B8 
88 
DA 
PB) 
BD 
ı8 
ER 
FE 

Da 
En 
25 
ER 
EA 
ER 
AD 
En 
34 
es 
eo 
34 
a8 
SD 
En 
sı 

DB 
EA 
86 
FF 
as 
48 
03 
08 
AD 
sı 
en 
as 
29 
FF 


ec 
33 

2D 

ER 

FF 

33 
rB 

a8 
es 

F7 
As 

as 
Fö 
78 
ac 

Ba 
AB 
Bi 

sn 
2D 
D1 

co 
BD 
AD 
co 

os 
EA 
2D 
En 
En 
EA 
so 
En 
ca 
D8 
BD 
BD 
oo 
28 
28 
DB 
sc 
En 
D3 
Fo 
Da 
34 
88 
DA 
s2 
03 
48 
e1 
En 
FF 


SD 
EA 
ER 
EA 
Fo 
85 
[1] 
05 
1A 
14 
20 
D8 
1 
eD 


83 


Fo 
08 
D8 
88 
EA 
sn 
33 
ca 
44 
33 
ns 
Es 
68 
ER 
EA 
En 
83 
86 
FF 
BD 
so 
sd 
n3 
34 
5D 
ER 
As 
En 
ne 
1A 
90 
na 
ER 
A6 
e3 
c3 
33 
8D 
ER 
FF 


no 
En 
ES 
n2 
e3 
) 
Bi 
20 
[21-] 
4C 
si 
ar 
88 
28 
2D 
ac 
Bi 
cs 
33 
As 
Fr) 
si 
33 
33 
BD 
Te 
Eo 
EA 
EA 
En 
EA 
cs 
D3 
De 
48 
34 
34 
28 
ac 
1 
EA 
03 
EA 
a8 
ns 
30 
76 
EA 
D3 
cs 
so 
as 
4 
EA 
FF 


33 
EA 
EB 

08 

ac 

BD 
Da 

85 

es 

97 

D® 

AS 

86 

37 

AS 

eD 
De 
E$) 
ER 
D8 
33 
Da 
E3 

c3 
ca 
sn 
on 
En 
En 
En 
En 
e3 
a2 
38 
34 
Ey 

c8 
Ey 

4D 
AB 
ER 
68 
ER 
BD 
FF 
34 
aD 
EA 
so 
ec 
Er) 
ei 
33 
FF 
FF 


A3 
ER 
oA 
BD 
DA 
AB 
c93 
1A 
28 
@D 
AD 
Di 
28 
si 
DO 
2D 
c3 
DO 
EA 
SD 
En 
28 


‘38 


a6 
33 
co 
Fo 
EA 
ER 
EA 
ER 
Fo 
oo 
BD 
85 
D8 
8B 
Do 
2E 
ao 
E8 
EA 
EA 
20 
9D 
AS 
so 
E8 
EA 
Do 
18 
8D 
EA 
FF 
FF 


72 
ER 
Da 
so 
2D 
33 
SF 
AB 
85 
EA 
44 
co 
27 
28 
co 
En 
SF 
oc 
EA 
so 
Aa 
sD 
sı 
Do 
c8 
33 
e3 
EA 
EA 
En 
EA 
83 
BD 
38 
Di 
FE 
Do 
ER) 
EA 
ns 
EO 
EA 
EA 
34 
28 
Di 
34 
Eo 
En 
7 
as 
4 
ac 
FF 
FF 


DES LISTINGS <0VM) 


Freuen Sie sich 


SeuflWwiärsee ii 


das nächste 


C-16 Sonderheft 6/88, 


ab dem 29.10.88 


bei Ihrem 


Zeitschriftenhändler! 





PROGRAMME Eu 


ee) 
ac 
Da 
33 
BD 
es 
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es 
1m 
[21-] 
33 
s2 
11 
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11 
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34 
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27 
FF 
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”s48 
s:39D 
ssEc 
::D7 
»:B3 
ı:28 
s:19 
ıı8F 
;:39 
sı5E 
s:9D 
::18 
ssE2 
s:C5 
s:ıD9 
i:3F5 
sı82 


sc 


ssir 
1199 
ss4E 
sıDA 
::A? 
sıiA 
ss21 
ı:sE6 
ssq42 
1:18 
ı3FD 
ı:95 
sı0D 


s:6C 


‚27 
::B7 
137B 


ssAr 


ı:E9 


s:scD 
s:5A 
sı3A 


sı8F 


s216 
sısE 
2:09 
1:98 
ı:FB 
ı sAE 
s:29 
ıs8N 
sıFil 
sıBF 
ssıcA 
sıF3 
ı:27 
ssc2 


49 


Zur Eingabe der Listingsprogramme 


für G 64/C 16/Plus 4 





Eingabehinweise für alle Commodore-Rechner! 


Wer sich schon etwas näher mit Gommodore-Rechnern befaßt hat, wird sicherlich 
wissen, daß der Grafiksatz des C 64 und © 16 sehr viele ähnliche Symbole enthält. 
Aus diesem Grund ist es oft sehr schwer, einzelne Zeichen, wie zum Beispiel ho- 
rizontale Linien, voneinander zu unterscheiden. Besonders macht sich dieser Nach- 
teil in Listings bemerkbar, welche die Bildschirmgrafik mit PRINT-Zeilen aufbauen. 
Bisher haben wir in unseremAusdruck lediglich die Steuersequenzen wie CTRL- 
RVS ON oder CTRL-BLUE durch Klartext ersetzt, ab dieser Ausgabe werden je- 
doch auch alle Grafikfikzeichen durch ein Schlüsselcode ersetzt. Durch diese Met- 
hode sind Verwechselungen praktisch völlig ausgeschlossen. 


Alle sogenannten Sonderzeichen (z.B: eine Farbe) sowie ein Grafikzeichen, wer- 
den in unseren LISTINGS durch ein CODEWORT, welches die Taste bzw. Tasten- 
kombination kennzeichnet, ersetzt. Eine Tabelle der Tastenfunktionen finden Sie 
in dem Tronic-Magazin Compute mit. Das folgende Beispiel zeigt den Unterschied 
zwischen unserem alten und dem neuen Druckverfahren: 
664 LISTING MIT CHECKBUMMEN IC VA.0) 

30 REM BISHERIGER AUSDRUCK <119> 

20 PRINT" (DOUN4} “ <52> 

30 PRINT" ——— I. =" <5> 

0 PRINTY Pia * <189> 

30 PRINT"ENDE* - <246> 


ENDE DES LISTINGS 
EDRUCKSF.B. 3 


©-64 LISTING + CHECKSUMMEN (E Vi.0) 


10 REM NEUER AUSDRUCK <162> 
20 PRINT" (DONNE SO CY9 SP)" <52> 
30 PRINT" (SA SB SC SD SE SE SG SH SL 52 SK2” <85> 
40 PRINT"(CA CB CC CD CE CE C92” <149 
SO PRINT"ENDE” <246> 


ENDE DES LISTINGS 


Wie in diesem Beispiel zu erkennen ist, werden alle Steuertasten durch die ent- 
sprechende Tastenbeschreibung markiert. Das Wort DOWN steht in diesem Fall 
für Cursor nach unten. Die Zahl dahinter gibt an, wie oft die Taste betätigt werden 
muß. In unserem Beispiel müßte also die Taste CGURSOR abwärts viermal betätigt 
werden. Die genaue Beschreibung, welche Taste gemeint ist, entnehmen Sie bitte 
der Klartext-Tabelle, welche am Ende dieser Beschreibung abgedruckt ist. Ach- 
tung, für C 16 und C 64 existieren zwei verschiedene Tabellen! 
Wie ebenfalls aus dem Beispiel zu erkennen ist, werden auch alle Grafikzeichen 
durch einen 2-Buchstaben-Code ersetzt. Der erste Buchstabe ist entweder ein »S« 
oder ein »C«. Das »C« steht für die -COMMODORE-TASTE« und das »S« für die 
»SHIFT-TASTE«. Der zweite Buchstabe bezeichnet die Aufschrift der Taste. Das 
»SA« in unserem Beispiel bedeutet also, daß die Taste SHIFT zusammen mit dem 
Buchstaben »A« betätigt werden muß. »C +. würde bedeuten, daß die Taste COM- 
MODORE zusammen mit dem PLUS-Zeichen gedrückt wird. Wird direkt hinter die- 
ser Buchstabenkombination eine Zahl 
weiligen Zeichen an. Das Zeichen COMMODORE Y wurde also in unserem Beis- 
piel 9mal eingegeben. Durch diese Methode entfällt das lästige Abzählen von 
mehrfachen Zeichen. 
Um in Listings Tastenbezeichnungen von normalen Zeichen zu unterscheiden, wer- 
den alle Tastenbezeichnungen in geschweiften Klammern gesetzt. Diese dürfen 
selbstverständlich nicht eingegeben werden. Auch Leerzeichen innnerhalb ge- 
schweifter Klammern dienen nur zur Trennung einzelner Tastenfunktionen und dür- 
fen ebenfalls nicht eingegeben werden. Um die Tastenfunktionen noch besser her- 
vorzuheben, werden diese in unterstrichener Kursivschrift (Schrägschrift) darge- 
stellt. Alle Zeichen außerhalb der geschweiften Klammern werden normal abge- 
druckt und auch eingegeben. 
Im ersten Moment hört sich das sicher etwas kompliziert an, ist jedoch in der Pra- 
xis ganz einfach. Wenn man sich erst einmal an die in Klartext geschriebenen Zei- 
chen gewöhnt hat, wird man den großen Vorteil dieser Schreibweise erkennen. 
Frank Brall 
Noch eine wichtige Anmerkung! 
Aus technischen Gründen können drei Zeichen von unserem Ausgabegerät nicht 
verarbeitet werden. Diese Zeichen sind: Pfeil nach links, engl. Pfund, Pfeil nach 
oben. 
— Steht für den Pfeil nach links 
/ Steht für das engl. Pfund-Symbol 
? Steht für Pfeil nach oben 
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angeben, so gibt diese die Anzahl der je- . 





Klartext-Tabelle für Commodore 64 

DOWN CURSOR ABWÄRTS 

UP CURSOR HINAUF 

CLEAR CLEAR SCHIRM 

INST EINFÜGEN 

HOME CURSOR IN ECKE 

RIGHT CURSOR RECHTS 

LEFT CURSOR LINKS 

SPACE LEERZEICHEN 

DEL DELETE 

Fi FUNKTIONSTASTE 

F2 FUNKTIONSTASTE 

F3 FUNKTIONSTASTE 

F4 FUNKTIONSTASTE 

F5 FUNKTIONSTASTE 

F6 FUNKTIONSTASTE 

F7 FUNKTIONSTASTE 

F8 FUNTKIONSTASTE 

BLACK SCHWARZ 

WHITE WEISS 

RED ROT 

CYAN TURKIS 

PURPLE PURPUR 

GREEN GRÜN 

BLUE BLAU 

YELLOW GELB 

RVSON INVERSE EIN 

RVSOFF INVERSE AUS 

ORANGE ORANGE 

BROWN BRAUN 

LIG.RED HELLROT 

DGREY DUNKELROT 

MGREY MITTELGRAU 

LIG.GREEN HELLGRÜN 

LIG.BLUE HELLBLAU 
HELLGRAU 

CIRL.. CTRL-ZEICHEN 

Ben GRAFIK-ZEICHEN 

c RAFIK-ZEICHEN 


= [ec] 
SHIFTSPACE UNSI 


TASTE NEBEN RECHTEN SHIFT 

SHIFT-TASTE & TASTE NEBEN RECHTEM SHIFT 
SHIFT-TASTE & 2. TASTE GANZ RECHTS OBEN 
SHIFT-TASTE & TASTE GANZ RECHTS OBEN 
2. TASTE VON GANZ RECHTS OBEN 

TASTE GANZ RECHTS UNTEN 

SHIFT-TASTE & TASTE UNTEN RECHTS 
LEERTASTE (GRÖSSTE TASTE) 

TASTE GANZ RECHTS OBEN 


FUNKTIONSTASTE Fi 
FUNKTIONSTASTE F2 
FUNKTIONSTASTE F3 
FUNKTIONSTASTE F4 
FUNKTIONSTASTE F5 
FUNKTIONSTASTE F6 
FUNKTIONSTASTE F7 
FUNKTIONSTASTE F8 
CONTROL-TASTE & 1 


COMMODORE-TASTE 

COMMODORE-TASTE & 6 
COMMODORE-TASTE & 7 
COMMODORE-TASTE & 8 


CONTROL-TASTE UND DAS ...ZEICHEN 
SHIFT-TASTE UND DAS:....ZEICHEN 
COMMODORE-ZEICHEN UND DAS ...ZEICHEN 


CHTBARER CODE SHIFT-TASTE UND SPACE 


Klartext-Tabelle für Commodore C 16 und Plus 4 
De EEE 


TASTE NEBEN INST DEL: RECHTS OBEN 

3. TASTE NEBEN DOWN VON RECHTS OBEN 
TASTE UBER RETURN ZUSAMMEN MIT SHIFT 
SHIFT-TASTE & TASTE GANZ RECHTS OBEN 
2. TASTE VON GANZ RECHTS OBEN 

TASTE GANZ RECHTS OBEN 

4..TASTE VON RECHTS OBEN 

5. TASTE VON RECHTS OBEN 


.FLASHON 


FLASHOFF 


SHIFTSPACE UNSICHTBARER CODE : SHIFT-TASTE UND SPACE 


CURSOR ABWÄRTS 
CURSOR HINAUF 
CLEAR SCHIRM 
EINFÜGEN 
CURSOR IN ECKE 
DELETE 


CURSOR RECHTS 


FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 


BLAUGRÜN 
HELLBLAU _ 
DUNKELGRÜN 
HELLGRÜN 
CTAL-ZEICHEN 
GRAFIKZEICHEN 
GRAFIKZEICHEN 
BLINKEN EIN 
BLINKEN AUS 


LEERTASTE 


TE TAS 


( TE) 
FUNKTIONSTASTE F1 (VORHER DEFINIEREN) 
FUNKTIONSTASTE F2 (VORHER DEFINIEREN) 
FUNKTIONSTASTE F3 (VORHER DEFINIEREN! 
FUNKTIONSTASTE F4 (VORHER DEFINIEREN! 
FUNKTIONSTASTE F5 (VORHER DEFINIEREN) 
FUNKTIONSTASTE F6 (VORHER DEFINIEREN) 
FUNKTIONSTASTE F7 (VORHER DEFINIEREN) 
FUNKTIONSTASTE F8 (VORHER DEFINIEREN) 


CONTROL-TASTE & 1 
CONTROL-TASTE & 2 


COMMODORE-TASTE 
COMMODORE-TASTE 


CONTROL-TASTE UND DAS ... ZEICHEN 
SHIFT-TASTE UND DAS ... ZEICHEN ; 
COMMODORE-TASTE UND DAS ...ZEICHEN: 


CONTROL-TASTE UND "," 
CONTROL-TASTE UND ”,” 
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Der Checksummer für MC- Programme! 


Maschinenprogramme gefragt? 


Da wir verstärkt Maschinenpro- 
gramme abgedrucken, benötigen 
Sie ein Verfahren, um auch diese 
Programme mit. einer Check- 
summe zu versehen. Das Aus- 
druckverfahren von Basic-Listings 
wird nicht verändert. Hier wird 
auch weiterhin der erprobte 
Checksummer OV 2.0 seine 
Dienste tun. 


Der Checksummer OVM 1.0 


Wie schon erwähnt, dient der 
Checksummer ausschließlich zum 
Eingeben von Maschinenpro- 
grammen. Diese konnten zwar 
bisher relativ kompakt als soge- 
nanntes HEXDUMP ausgegeben 
werden, ließen jedoch keine Mög- 
lichkeit für eine oder mehrere 
Prüfsummen offen. 

Dies ist bei diesem Checksum- 
mer völlig anders. Die Bedienung 
und Arbeitsweise dieser Version 
ist weitgehend mit dem eingebau- 
ten Maschinensprachemonitor 
TEDMON identisch. Die einzige 
Ausnahme ist, daß nach der Ein- 
gabe einer HEXZEILE keine 
ASCII-Zeichen, sondern eine soge- 
nannte Checksumme bzw. Prüf- 
ziffer ausgegeben wird. Achter 
man beim Eingeben der Zeilen 
darauf, daß Diese Prüfziffern mit 
den abgedruckten Prüfziffern 
identisch sind, so kann praktisch 
kein Tippfehler mehr übersehen 
werden. 


Hinweise zum Einsatz des 
Checksummers 


Um den Checksummer OVM 1.0 
einzugeben, sollten Sie unbedingt 
den Basic-Checksummer OV 2.0 
verwenden. Vor dem Start, durch 
den Befehl RUN, sollte das Pro- 
gramm auf jeden Fall mit 
SAVE”OVM1.0” auf Kassetge oder 
Diskette abgespeichert werden, da 
sich das Programm unter Um- 
ständen selbst zerstören kann. 


Wer sich die Arbeit des Eingebens 
völlig ersparen möchte, kann den 
Checksummer auch unter den 
folgenden Bestellnummern bezie- 
hen: 
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OVM 1.0 K Kassette 
OVM 1.0 D Diskette 


15 DM 
20 DM 


Nachdem man den Checksum- 
mer eingegeben und mit RUN ge- 
startet hat, verlangt dieser die 
Eingabe einer Adresse. Diese 
Adresse gibt an, ab welcher Spei- 
cherstelle der Checksummer im 
RAM abgelegt werden soll. Diese 
Adresse muß flexibel gestaltet 
werden, da sich sonst einzuge- 
bende Maschinenprogramme 
eventuell mit dem Checksummer 
überschneiden könnten. Der 
zweite Vorteil ist, daß sich ein 
verschiebbarer Checksummer 
gleichermaßen für den C16 so- 
wie den Plus 4 eignet. Zu beach- 


ten ist hier nur, daß sich die: 


eingegebene Adresse in einem zu- 
lässigen Bereich befindet: Beim 
C16 von 4097 bis maximal 12680 
Beim Plus 4 von 4097 bis maxi- 
mal 32060. 


Welche Adresse man schließlich 
wählt, bleibt jedem selbst überlas- 
sen. Wichtig ist nur, daß der Be- 
reich 688 Bytes über der Adresse 


‚nicht vom einzugebenden Pro- 


gramm benötigt wird. Belegt 
beispielsweise das einzugebende 
Programm den Bereich von 
-1000--2000 (4096-8192), so 
könnte man für den Checksum- 
mer die Adresse 9000 wählen. Um 
Ihnen am Anfang die Wahl des 
Speicherbereiches etwas zu er- 
leichtern, werden wir auch ent- 
sprechende Tips in den 
Programmbeschreibungen unter- 
bringen. 


Nachdem Sie eine ‚Startadresse 
eingegeben und die RETURN- 
Taste betätigt haben, wird der 
Bildschirm mit einem undefinier- 
baren Zeichengewirr beschrieben. 
Keine Angst, dies ist normal und 
dient zum Umrechnen einiger 
Sprungbefehle. Kurz danach er- 
scheint die eingegeben Starta- 
dresse sowie die Endadresse des 
Checksummers. Prüfen Sie jetzt 


noch einmal genau, ob sich diese 


Adressen nicht mit dem einzuge- 
benden MC-.Programm über- 


schneiden. 


‚Ist dies nicht der Fall. so kann der 


Checksummer mit dem angezeig- 
ten SYS ... Befehl aktiviert wer- 
den. Ein, ab Adresse 10000 
abgelegter Checksummer wird 
beispielsweise auch mit SYS 10000 
aktiviert. 


Nachdem sich der Checksummer 
mit dem üblichen COPY-RIGHT- 
Vermerk melder, befinden Sie sich 
im MC-Eingabemodus. Dies be- 
deutet, daß jetzt die Basic-Befehle 
nicht mehr ausgeführt werden 
können. Statt dessen stehen dem 
Anwender nun acht neue Befehle 
zur Verfügung, Die Befehle beste- 
hen jetzt nur noch aus einem ein- 
zigen Buchstaben und arbeiten 
ähnlich wie die im eingebauten 
Maschinensprachmonitor 
TEDMON. 


M aaaa,eeee 

Dies ist der sogenannte 
Memory-Befehl. Er erlaubt das 
Auflisten eines bestimmten Spei- 
cherbereichs als HEXDUMP mit 
einer Checksumme pro Zeile. Die 
Parameter aaaa und eeee stehen 
jeweils für Anfangs- und Enda- 
dresse des auszugebenden Be- 
reichs. 


aaa bb bb... 
Dieses ist der eigentliche 
Maschinencode-Eingabebefehl. 


Als Parameter kann die Eingabe- 
adresse sowie eine Folge von By- 
tes (maximal 8) übergeben 
werden. Die Arbeitsweise ist mit 
dem herkömmlichen Monitor 
völlig identisch und kann im 
Handbuch zum C16 genauer stu- 
diert werden. Der einzige Unter- 
schied zum Standard-TEDMON- 
Befehl besteht darin, daß nach dem 
Betätigen der RETURN-Taste am 
Zeilenende eine Checksumme er- 
scheint. Um die Checksumme 
besser von den Bytes der Eingabe 
abzuheben, ist diese durch zwei 
Doppelpunkte von letzteren ab- 
gesondert. Da dieser Befehl auto- 
matisch beim M-Befehl den Zeilen 
vorangestellt wird, lassen sich 
Speicherbereiche einfach mittels 
der Cursortasten verändern oder 
verbessern. Wichtig ist hier aller- 
dings, jede veränderte Zeile mit 
der RETURN-Tasıe zu quitieren. 


"Se diesen Befehl wird die 


Bildschirmausgabe auf einen an- 
geschlossenen Drucker umgelei- 
ter. Wenn Sie anschließend den’ 
M-Befehl benutzen, können Sie 
beliebige Speicherbereiche als 
HEXDUMP mit Prüfsummen auf 
Ihrem Drucker ausgeben lassen. 


B 

Dieser Befehl stellt das Gegen- 
stück zum P-Befehl dar. Die Aus- 
gabe wird wieder auf den 
Bildschirm umgeleitet. 


L”’Name”,g 

Dies ist der LOAD-Befehl zum 
Nachladen von Maschinenpro- 
grammen. Die Syntax und Ar- 
beitsweise entspricht genau dem 
TEDMON-Befehl und kann so- 
mit im Handbuch nachgelesen 
werden. 


S”Name”,g.aaaa,eeee 

Dies ist der Save-Befehl zum Spei- 
chern von Maschinenprogram- 
men, Die Syntax und Arbeits- 
weise entspricht genau dem 
TEDMON-Befehl und kann. so- 
mit im Handbuch nachgelesen 
werden. 


V”Name”,g 

Dies ist der VERIFY-Befehl zum 
Prüfen von Maschinenprogram- 
men. Die Syntax und Ar- 
beitsweise entspricht genau dem 
TEDMON.Befehl und kann so- 
mit im Handbuch nachgelesen 
werden. 


X 

Über diesen Befehl verlassen Sie 
den Eingabemonitor und gelan- 
gen wieder in den Basic-Interpreter 
zurück, 


Achtung! 

Nach der Ausführung der Befehle 

L,S und V (LOAD, SAVE VERI- 

FY), befinden Sie sich nicht mehr 

im Checksummer, sondern im- 
eingebauten Systemmonitor TED- 

MON. Um den Checksummer 

wieder zu aktivieren, müssen Sie 
diesen von TEDMON mit Gxxxx 

(xxx steht für Startadresse in 

HEX) oder vom Basic aus, wieder 

mit SYS ... aktivieren. 
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So, nun viel Glück beim Einge- 
ben von Maschinenprogram- 
men. Übrigens, wer noch nicht 
_ ganz mit der Bedienung unse- 


res Systems zurechtkommt, 
kann selbstverständlich auch 
weiterhin den eingebauten 
TEDMON benutzen. Wir hoffen 


jedoch, daß unser System OVM 
1.0 Ihren Zuspruch finden und die 
lästige Fehlersuche zumindest 
stark reduzieren wird. Schreiben 


Sie uns doch einmal, was Sie von 
unseren Eingabehilfen für gut 
oder für. verbesserungswürdig 
Frank Brall 


EC-1& LISTING + CHECKSUMMEN (DC V1.0) 
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18 REM RRRRRHHHSHRIHIEIHH HEINE: <241> 
‘20 REM MC-EINGABEROUTINE <252> 
580 REM OVM 1.8 <218> 
40 REM (EC) FRANK BRALL <194> 
SB REM HRHHHRHRRRREISHHHIENE <25> 
68 REM <203> 
78 FOR I=163@ TO 1702:READ P3POKE I,PsNEXT I <248> 
88 REM *** VERSCHIEBE ROUTINE ##** <2358> 

90 DATAS2,222,157,132,216,133,217,32,222,157 
‚„148,134,3,141,135,3,32,222 <145> 
188 DATA157,132,218,133,219,1690,0,177,216,14 
5,218,24,165,216,1905,1,133,216& <54> 
119 DATA165,217,105,0,133,217,24,165,218, 105 
‚,1,153,218,165,219,195,8,133 <136> 
128 DATA219,165,217,205,135,3,2908,219,165,21 
6,205,134,3,208,212,964,8,8 <198> 
15@ DATAQ <191> 
140 REM ###* MC-CODE ### <1997> 
150 DATA234 , 169,251 ,141,21,255,169,2,141,25, 
255,32,216,251,147,17,29,144 <74> 
168 DATA32,32,67,49,54,32,77,67,45,67,72,69, 
67 ,75,83,85,77,77 <215> 
178 DATAG9 ,82,32,79,86,77,32,49,48,13,13,32, 
32,32,32,32,49,47 x <89> 
188 DATA41 ,32,70,82,65,78,75,32,66,82,65,76, 
76,32,49,57,58,55 <255> 
198 DATA17,0,52,58,251,162,98,134,243,32,287, 
255,157 ,0,2,232,291,13 <218> 
2au DATA29B,245,202,134 ,244 ,32,63,251 ,240,23 
0,201 ,532,249,247,162,7,221,151 <52> 
2ı@ DATA19,249,9,202,16,248,32,11,251,56, 176 
‚210,234 ,224 ,5,248,29,224 <97> 
220 DATA6,240,25,224,7,249,21,138,19,179,189 
‚160,18,141,173,18,1899,159 : <78> 
238 DATA18,141,172,18,52,242,17,108,172,18,1 
41,91,5,169,241,141,21,255 <124> 
248 DATA169,238,141,25,255,173,91,5,76, 118,2 
46,176,19,32,91,251,140,D2 { <58> 
250 DATAS2,242,17,176,9,165,241,145,161,200, 
172,8,144,242,32,216,251,27 <173> 
240 DATA79,145,0,32,67,18,56,176,166,234,8,1 
65,161,141,174,18,165,162 <14B> 
270 DATA141,175,18,32,216,251,13,32,77,67,45 
,76,73,83,84,73,78,71 <142> 
288 DATAS2,77,73,84,32,67,72,69,67,75,83,85, 
77,77,69,78,32,79 <232> 
298 DATAB6,77,49,48,13,8,173,174,18,133,161, 
173,175,18,133,162,40,17& <58> 
308 DATA14,56,176,3,56,176,183,32,91,251,32, 
242,17,144,6,169,11,133 <29> 
‚318 DATA241 ,208,14,32,1900,251,74,102,241,74, 
102,241,74,102,241,133,242,32 : <238> 
320 DATAZ25,255,240,13,32,67,18,169,8,32, 158 
‚251 ,32,114,251,176,238,8 <70> 
3352 DATA165,161,141,174,10,165,162,141,175,1 
8,52,216,251,13,32,69,78,68 <65> 
Ss40 DATA69,32,68,69,93,32,76,73,83,84,73,78, 
71,83,32,49,797,84 <11B> 
358 DATA77,41,13,0,1735,174,18,133,161,173,17 
5,18,133,162,49,56,176,152 <138> 
348 DATN32,216,251,13,77,67,45,67,72,69,67,7 
5,83,85,77,77,69,82 <158> 
378 DATAS2,65,85,83,32,33,0,169,241,141,21,2 
55,169,238,141,25,255,1904 <135> 
S88 DATA104,76,3,128,234 ,32,216,251,13,60,82 
,‚85,67,75,69,82,32,65 z <119> 
392 DATA7S5,84,73,86,13,8,169,1,162,4,160,80,3 
2,186,255,169,8,32 5 <196> 
400 DATA189,255,32,192,255,162,1,32,2@1,255, 
56,176,168,234,169,1,32,93 <224> 


halten! 


410 DATA239,32,12,239,32,216,251,13,66,73,76 





















































‚68,83,67,72,73,82,77 <171> 
420 DATA32,65,75,84,73,86,13,0,56,176,219,16 
9,0,133,241,133,242,141 <19> 
458 DATA244,7,32,63,251,240,58,201,32,240,24 ; 
7,201,32,240,465,201,44,240 e <107> 
A440 DATA42,201,48,144,43,201,71,176,39,201,5 
8,144,6,201,65,144,31,233 <98> 
458 DATAB,233,47,10,190,19,19,162,4,190,38,241 
‚38,242,202,298,248,238 <251> 
468 DATA244,7,32,63,251,208,206,173,244,7,24 
»76,104,104,32,11,251,56 <53> 
478 DATA176,172,234,32,58,251,169,62,32,21@, 
255,32,251,259,160,0,32,158  .%248> 
AaD DATA2B7,32,5,251,288,192,8,144,245,32,21 
6,251,58,58,2,169,8,141 <105> 
470 DATA169,18,160,0,32,15@,287,141,171,18,1 
48,170,18,174,1790,18,232,24 <139> 
S2B DATA173,171,18,109,169,18,141,169,18,202 
‚288,243,200,192,8,144,225,24 <137> 
518 DATA173,169,18,101,161,24,101,162,162,0, 
32,5,251,96,62,77,88,88 <221> 
520 DATAA6,76,83,86,174,16,208,16,123,17,163 
‚17,288,17,8,8,8,8 <22&> 
5350 DATADB,0,90,255 <234> 
548 REM <173> 
S5@ REM #*%# ABSOLUTE ADRESSEN ##* <28> 
S6@ REM <193> 
578 DATA 4204 ,4234 ,4237 ,4240,4243 <258> 
S8B DATA 4246,4249 ,4278,4299,4309 <a> 
570 DATA 4314,4356,4361 ,4378,4498 <B6> 
600 DATA 4424 ,4429 ,4462,44647 ,4709 <215> 
610 DATA 4717,4720,4723,4728,4731 <47> 
620 DATA 4734 ,4746 ,4767 ,4769 ,4771 <180> 
658 DATA 4773,4775,8 <52> 
640 PRINT"{CLEAR DOHN2 SPACEZIMASCHINENCODET 

SPACE FCHECKSUMMERTSPALCEIOVM£SPACE} LO" <47> 
652 PRINT"{DOUN SPACETY (C) CSPACEIFRANKTSPACE 
3BRALL{SPACE} 1987 CDOHNY" <3B> 
668 PRINT"BITTE{SPACEIGEBENTSPACEISIELSPACEI 
NUN{SPACEIDIETSPACEIADRESSETSPACEFIEIN, " <136> 
678 PRINT"AB{SPACEIDERTSPACEIDER{SPACEICHECK 
SUMMER{SPACE} IM{SPACEISPEICHER" <51> 
688 PRINT"ABGELEGT {SPACEIWERDENTSPACEISOLLES 
PACEY!" <228> 
698 PRINT” {DOWHNFACHTUNGLSPACE}Y ! ! ! {DON " <197> 
788 PRINT"BEIM{SPACEICIBCSPACEIZWISCHEN{SPAC 

E34097 {SPACEFUND{SPACE} 124BDTSPACE} !" <64> 
718 PRINT"BEIM{SPACEIPLUS4{SPACE? ZWISCHENISPR 
ACE}4B97 {SPACEFUND{SPACEISZZWADTSPACE} | CDOUNY 

a <215> 
728 INPUT "ADRESSE{SPACE}I"ZAD <111> 
73@ IF AD<49097 THEN RUN <47> 
740 IF AD>32040 THEN RUN <210> 
7582 D=AD-4297:REM DIFFERENZ <171> 
768 PRINT" {CLEAR}BITTETSPACEFEINENTSPACEFAUG 
ENBLICK{SPACEFWARTEN{SPACE} I" . <£167> 
778 FOR I= 3152 TQ 3152+487 :READ P:POKE I,P 

sNEXT I <203> 
788 READ UA :IF UA = @ THEN 850 <129> 
790 UA=UA-945 ; <173> 
8BB W=(PEEK (UA+1) #256) +PEEK (UA) <194> 
812 W=W+D <233> 
820 FOKE UA+1,INT (01/256) <130> 
838 PODKE UA,W- (INT (U/255) #256) <13> 
840 GOTO 798 <170> 
858 PRINT" CHONE SPACESIPROGRAMMISPACEIISTISP 
ACEYEINGELESENESPACEY !" <135> 
BB PRINT" {DOHNI19ISTARTLSPALEIMIT TSPACEISYS" 

AD <246> 
870 PRINT"START{SPACE}BEI: "AD" CSPACEZIENDELS. : 
PACE}YBEI: "AD+687 <166> 
BBD SYS 16539,3152,3152+588,AD <27> 
892 END <253> 


ENDE DES LISTINGS 
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(Fortsetzung zu Teil 1, Com- 
pute mit (Normalausgabe), Heft 
8/88) 


Im zweiten Teil wollen wir ver- 
stärkt auf die Praxis eingehen 
und zeigen, wie man dieses 
Gerät fachgerecht zusammen- 
setzt. Die große Zeichnung er- 
läutert auf recht einfache 
Weise, wie die ICs untereinan- 
der mit den Ausgängen ver- 
bunden werden müssen. Die 
Zahlen bezeichnen 
Anschlußpins an der Oberseite 
der Platine, die Buchstaben die 
an der Unterseite, wobei die 
Userportseite an der Unterseite 
der Zeichnung zu sehen ist. 
Zum Aufbau wird neben einer 
geeigneten Platine weiterhin 
benötigt: Ein IC UM 6522 A, ein 
74 LS O4N, sowie ein 74 HC 
133 .B 1. Geeignete Platinen 
können unter Umständen auch 
über mich bestellt werden. 
Meine Adresse: Günter Knese- 
beck, Postfach 600448, 5000 
Köln 60. : 


Wie die ICs eingesetzt werden, 
geht sowohl aus dem Photo, 
als auch aus der Zeichnung 
hervor. Im ersten Teil des Kur- 
ses haben wir schon darauf 
hingewiesen, daß der Userport 
über zwei Basisadressen pro- 
grammiert werden kann. Die 
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die . 


Basisadresse 1 lautet 64768; 
die zweite 64784. Basisadresse 
2 wird im C 16/C 116 für Kas- 
settenoperationen genutzt. 
Durch Verbindung der Jumper 
B und C ist der Userport nur 
über die erste Basisadresse 
ansprechbar, durch Verbin- 
dung der Jumper A und B nur 
über die zweite Basisadresse. 
Das ist von Bedeutung, wenn 
dieser Userport an den Plus 4 
angeschlossen werden soll, 
denn die Basisadresse 1 wird 
im Plus 4 von der RS 232 C 
Schnittstelle und die Basis- 
adresse 2 vom Parallelport ge- 
nutzt. 


Nach Meinung des Herstellers 
bietet der Userport jedoch 
mehr Möglichkeiten als der 
Acht-Bit.Parallelport. Man kann 
diesen Port jedoch desaktivie- 
ren. Dazu muß Pin 19 vom U5 
(6529B) durchtrennt und mit 
Pin 20 verbunden werden. Die 
RS 232.C Schnittstelle bleibt 
weiterhin nutzbar. 


US 6529B ( liegt oberhalb 
des Prozessors 


lee 0 ee ee 
ee 


20 ı 
Be durchtrennen ! 





"C 16 USERPORT im Selbstbau 


Programmbeispiele: 

Der Zugriff auf die Register ge- 
schieht durch Peek und Poke- 
Befehle. Dazu wird zur Basis- 
adresse die entsprechende 
Registernummer addiert. Um 
den Userport als parallele 
Schnittstelle zu nutzen, muß in 
das Datenrichtungsregister des 
gewünschten Ports ein 
Steuer-Byte hineingeschrieben 
werden. Dieses Byte muß an 
den Positionen eine 1 enthal- 
ten, an denen die Portleitung 
als Ausgang betrieben werden 
soll, und eine 0, an denen sie 
als Eingang arbeiten soll, wo- 
bei ein gemischter Betrieb von 
Ein- und Ausgangsleitungen 
möglich ist. Von jetzt an wird 
das Bitmuster, das Sie in das 
Datenregisterr des Ports 
schreiben, an den Ausgängen 
erscheinen. Es dürfen auch 
Daten auf die Pins geschrieben 
werden, die zu Eingängen pro- 
grammiert sind. 


Ein Beispiel: 

10 Poke 64770; 255 :rem alle 
Port-B-Leitungen sind Aus- 
gang. 

20 Input X :rem Eingabe einer 
Zahl. 

30 Poke 64768, x :rem schreibt 
die Zahl ins Outputregister B. 
40 Goto 20 :rem Eingabe einer 
neuen Zahl. 


Wenn Daten von der Portlei- 
tung gelesen werden, sind zwei 
Betriebsarten möglich. 

1. Der C-16 liest das augen- 
blickliche Bitmuster. auf den 
Portleitungen. 

2. Das Bitmuster auf den 
Portleitungen wird bei einer 
Flanke auf den: Interrupt- 
Eingangsleitungen (CA1 für 
Port A und CB1 für Port B) in 
einem Latch abgespeichert, 
und der C-16 liest den Inhalt 
dieses Latches. 


Diese beiden Modi lassen sich 
über das Hilfssteuerregister 
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anwählen, wobei durch das Pe- 
ripheriesteuerregister die Be- 
schaffenheit der Flanke ange- 
wählt werden kann. 


Die Leitungen CA1, CA2 (für 
PortA) und CB1, CB2 (für Port 
B) arbeiten überdies, gesteu- 
ert durch das Perepheriesteu- 
erregister, als Interrupt- 
Flagregister. Ob ein gesetztes 
Interrupt-Flag einen Interrupt- 
Request auslösen darf, ent- 
scheidet das korrespondie- 
rende Interrupt-Freigabe-Bit im 
gleichnamigen Register. CA1 
kann nur als Eingang arbeiten. 
CA2 kann sowohl als Eingang 
wie auch als Ausgang pro- 
grammiert werden. CA2 läßt 
sich durch Programmierung 
des Hilfssteuerregisters als 
Schieberegister Ein- und Aus- 
gang schalten. Der Schiebetakt 
läßt sich auf verschiedene 
Weise erzeugen (siehe 
Hilfssteuerregister) und an den 
CB1 abgreifen. Wird ein extern 
erzeugter Takt benutzt, läßt 
sich dieser, über CB1, dem 
Schieberegister zuführen. 


Ein Beispiel: 

10 Poke 64779,16 :rem Initiali- 
sierung des Schieberegisters 
(mode 4) x 

20 Poke 64776.255 :rem Inhalt 
von Time 2 (je größer desto 
langsamer) 

30 Poke 64778,15 :rem Bitmu- 
ster des Schieberegisters 

40 Poke 64778,0 :rem Abschal- 
ten des Schieberegisters. - 


Wird CB2 als einfach setzbare 
Ausgangsleitung benutzt, dann 
ist er folgendermaßen zu 
programmieren: 

10 Poke 64779,0 :rem Schie- 
beregister ist ausgeschaltet 
20 Poke 64780,225 :rem high 
Pegel an CB 2 

30 Poke 64780,220 :rem low 
PegelanCB2 


Timer 1 
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Der Intervall-Timer 1 besteht 
aus zwei 8-Bit-Latches und ei- 
nem 16-Bit Counter-Regisier. 
Die beiden Latches werden als 
Zwischenspeicher für die Da- 
ten verwendet, die in das 
Counter-Register geschrieben 
werden. Ist das Computer- 
Register geladen, zählt der Ti- 
mer mit dem C-16-System-Takt 
rückwärts, bis sein Inhalt Null 
ist. Das Timer 1 Interrupt-Flag 
wird in diesem Moment 
gesetzt. 


Die Arbeitsweise von Timer 1 
läßt sich über das Hilfsteuerre- 
gister programmieren. 


Frei-Lauf-Modus: Nach jedem 
Time-Out werden die Daten 
aus den Latches in die Coun- 
ter übernommen. Timer 1 star- 
tet sich immer wieder selbst. 


‚ Einzelbetrieb: Nach jedem 
Time-Out wird PB7 invertiert. 
Man kann nicht direkt ins 
Low-Order-Counter von Timer 
1 schreiben, sondern in das 
Low-Order-Latch. Der Low- 
Order-Counter wird immer mit 
dem Inhalt vom Low-Order- 
Latch geladen, sobald man ins 
High-Order-Counter Daten 


ee er 


Jumper 


ee rar 5 ABc EEE TE Re 


Yz. 
Lee 





schreibt. Gleichzeitig wird der 
Timer gestartet. Bleibt der In- 
halt des Low-Order-Latches 
unverändert, muß für einen 
neuen Start nur der High- 
Order-Counter geladen wer- 
den. 


10 Poke 64770,128 :rem macht 
PB 7 zum Ausgang. 


Anschluß für 9V Wechselspannung 
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20 Poke 64779,192 :rem setzt 
Bits im Steuerregister 

30 Poke 64772,255 :rem T1 
Low-Byte 

40 Poke 64773,255 :rem Ti 
High Byte und Start. 


Timer 2 : 
Der Timer 2 unterscheidet sich 


en 026 dc 


von Timer 1 dadurch, daß das 
High-Order-Latch fehlt. Free 
Running Mode ist also: nicht 
möglich. Weitere Unterschiede 
sind Lese- und Schreibopera- 
tionen. T2 Low Order Latch 
kann nur beschrieben, T2 Low 
Order Counter nur gelesen 
werden. T2 High Order Coun- 


C-16-Userport 


C16 Oberseite 


Stift Belegung 
ı Masse 

2 +5V 

3 Reset 

4 Port A® 
5 Port Al 
6 Port A 3 
7 Port A 4 
8 Port A5 
9 Port A 6 
10 Reserviert 
ı1 für.9V Ac 
12 Masse 


C16 Unterseite 


C64 Oberseite 


Stift Belegung 
Masse 
+5V 
Reset 
CNTI 

sp1 

CNT2 

sP2 

PC2 

ATN (PA3) 


9v ACc 
Masse 


BOwNIOTNT BUN" 


C64 Unterseite 


Stift Belegung Stift Belegung 
A Masse A Masse 

B CBl (entspricht Flag 2) B Flag 2 

c Port B® c Port B® 
D Port Bl D Port Bl 
E Port B2 E Port B2 
F Part B 3 F- Port B3 
H Port B4 H Port B4 
J Port B5 J Port 8-5 
K Port B6 K Port B6 
L Port B7 L Port B 7 
M Port A 2 M Port X\2 
N Masse N Masse 
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ter funktioniert in beiden Rich- 
tungen. Prinzipiell sind daher 
nur 2 Modi möglich: 


1. Intervall-Timer im Einzel- 


betrieb. 

2. Rückwärtszähler für nega- 
tive Impulse am Eingang PB86. 
Diese Modi lassen sich über 
das Hilfssteuerregister 


programmieren. 


So, das war’s! Ich wünsche Ih- 
nen nun viel Erfolg bei der Um- 
setzung der Bauanleitung und 
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den ersten Programmierver- 
suchen. 


Günter Knesebeck. 


E ıs-Chi it Pfiff! 
proms-Chips mit Pitt: 
Nachdem wir von vielen Lesern angesprochen und gebeten wurden, 
einen Kurs über das ’Eprombrennen’ zu veröffentlichen, haben wir 
diese Idee nun aufgegriffen. In drei Folgen können Sie sich nun aus- 


führlich zu diesem Thema informieren. Dabei werden auch Hardware- 
Informationen geliefert, die das Verstehen der Zusammenhänge 


erleichtern. 
1.0 Allgemeines 


Die Bezeichnung EPROM steht 
als Abkürzung für ”Erasable 
Programmable Read Only 
Memory”. Es handelt sich also 
um einen NUR-LESE-SPEI- 
CHER (ROM). Im ROM befin- 
det sich das Betriebssystem, 
im Plus/4 die eingebaute 
Software und allgemein die so- 
genannte Modulsoftware. 


Der entscheidende Vorteil der 
ROMs besteht darin, daß sie 
beim Abschalten der Be- 
triebsspannung des Rechners 
nicht ihren Inhalt verlieren. 
Diesem Umstand ist os zu ver- 
danken, daß der Computer bei 
Inbetriebnahme stets mit der 
gleichen Einschaltmeldung 
und blinkendem Cursor seine 
Bereitschaft signalisiert. 


Der eigentliche Speicher der 
ROMss ist ein kleiner Mikrochip, 
der bei EPROMs durch das 
Fenster gut sichtbar ist. Wegen 
der Sicherheit und der einfa- 
cheren Handhabung ist dieser 
Chip auf einen keramischen 
Träger montiert. Das Fenster 
dient zum Löschen der 
EPROMS, aber darüber später 
mehr. 


1.1 EPROM-Typen und Be- 
zeichnungen 


Leider ist die Beschriftung der 
EPROMss nicht einheitlich und 
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manche wichtige Information 
ist verschlüsselt dargestellt. 


Die gebräuchlichsten EPROMs 
sind die Typen der 27er Reihe: 


2764 64 KBit : 8 KByte 
Speicher 
27128 128 KBit : 16 KByte 
Speicher 
27256 256 KBit : 32 KByte 
Speicher 


Für die Zugriffszeit gibt es ver- 
schiedene Codes. Die gängig- 
ste Bezeichnung ist ”M” für 
250 Ns (Nanosekunden). Aber 
auch ”B” für 450 Ns, ”C” für 
350 Ns und ”D” für 250 Ns sind 
oft verwendete Bezeich- 
nungen. 


Der wohl wichtigste Punkt, die 
Programmierspannung, ist bei 
manchen Herstellern nur dem 
(seiten greifbaren) Datenblatt 
zu entnehmen. Allerdings sind 
heute überwiegend EPROMs 
mit 12,5 V Programmierspan- 
nung im Handel. Auf manchen 
EPROMss ist die erforderliche 
Programmierspannung auch 
direkt angegeben. Eine gän- 
gige Bezeichnung für 12,5 V ist 
auch ”F1”. 


v 


1.2 Die Pinbelegung 


EPROMs der 27er Reihe ha- 
ben 28 Füße (Pins), die wie 
folgt nummeriert sind.: die 
Kerbe ist oben, links oben von 


der Kerbe ist Pin 1. Von Pin 1 
wird nach unten weitergezählt 
bis Pin 14. Unten rechts ist Pin 
15 und oben rechts von der 
Kerbe ist Pin 28. Die Kerbe ist 
wichtig für die Einbaurichtung. 
Falsches Einsetzen kann zur 
Zerstörung des EPROMs 
führen! 

Die Pinbelegung im direkten 
Vergleich der Typen 2764 bis 
27256 ist in Skizze 1 darge- 
stellt. Die Abkürzungen haben 
dabei folgende Bedeutung: 


Vcc = 


Exp.-Port : um 


2 Vcc 
K Al2 
M Aid 
P ı A8 
S »  A6 
U »  A4 
W SS A2 
Y :. AO 
15 06 
17 04 
19 02 
a E01) 
B SICH 


Schaltungsvorschläge hierzu 
werden im nächsten Kapitel 
angeboten. 


2.0 EPROMs und COMPUTER 
= Zusammenspiel 


+ 5 V Betriebsspannung 


GND = Masseanschluß bzw. gemeinsamer Minuspol 
bezüglich VCC und VPP 


VPP = + 12,5 V oder 21 V PROBEN ITEEE TE 
AO — Al4 = Adreßleitungen 

01 - 07 = Datenleitungen 

PGM = Programmierimpuls- Eingang 

OE = Eingang zum Durchschalten der Daten 
CE = Eingang zum Aktivieren des EPRONMs 

NC = nicht belegt 


Am Expansionsport des C-16 
bzw. Plus/4 (siehe Skizze 2) 
entsprechen die Bezeichnun- 
gen wie folgt der EPROM- 
Pinbelegung: 


Expr=Rort 7:-5ERROM=H 
25 :  6ND 
J 3 AI 
IE All 
N »  A9 
R © A7 
T Bo) 
V A3 
X TIRT 
ı4 207 
16 05 
18 5093 
20 03 
10 S=0E 


Sowohl der Plus/4 als auch der 
C-16/116 ist für den Betrieb ex- 
terner ROMs vorgesehen. Im 
PLUS/4 können diese unter 
anderem gegen die eingebaute 
Software ausgetauscht 
werden. 

Beide Rechnertypen eignen 
sich zum Betrieb von exROMs 
auf Modulplatinen am 
Expansionsport. 


Wer aber Mut genug hat, kleine 
Eingriffe in seinem Rechner 
vorzunehmen, der hat sehr 
interessante Möglichkeiten, 
Module (extere ROMs) im 
Rechner zu betreiben: 
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2.1 Rechnerinterne Schaltlo- 
gik 


Wenn man den Schaltplan des 
C-16 mit dem des PLUS/A ver- 
gleicht, wird: man feststellen, 
daß die ROMs durch ein IC mit 
der Bezeichnung 74 LS 139 
geschaltet werden. Im PLUS/4 
hat dieses Bauteil die Kennung 
U20 (im C-16 U14). Dieses IC 
hat 16 Pins, von denen im C- 
16 sieben und im’ PLUS/4 neun 
Pins belegt sind. 

In der Folge bezeichne ich die- 
sen Baustein nür noch mit 
"U20”. Die Nummerierung der 
Pins ist wieder wie beim 
EPROM links von: der Kerbe 
mit 1 beginnend. 


U20 schaltet die ROMs wie 
folgt: 


Eine: 
Pin 12: KERNAL 
Pin 6: 
Pin 10: 
Pin 7 
Pin 9: 
Ein 5 
Pin ii 


Wenn nun z.B. am Expan- 
sionsport das SCRIPT PLUS- 
Modul betrieben wird, schaltet 
U20 nach Aufruf des Moduls 
von Pin 6 (U20) das Low-Eprom 
an Pin 22 und dann das High- 
'Eprom von Pin 10 (20) an Pin 
22 ein. 


2.2 EPROMSs im C-16 bezw. 
PLUS/A ° 


Da die Pins der eingebauten 
ROMs (Basic-Rom und Kernal) 
kompatibel zu den Pins der 
EPROMs sind, lassen sich 
EPROMs relativ einfach in den 
Rechner einbauen. Mit einem 
für Elektronikarbeiten geeigne- 
ten Lötkolben kann der inter- 
essierte Anwender auf die 
ROMs (U23/U24 bezw. U3/U4) 
28-polige Sockel rückwärtig 
(huckepack) aufiöten, wobei 
lediglich die Pins 22 der Sockel 
nicht mit den Pins 22 der 
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ROMs verbunden werden. Die 
Pins 22 werden herausgebo- 
gen, um daran die Schaltlei- 
tungen von U20 
anzuschließen. 

Im C-16 bieten sich für die Ein- 
Schaltung die Pins fünf und elf 
für das LOW- und das High- 
EPROM an. Es versteht sich 
von selbst, daß die ROMs beim 
Löten den Fassungen vorsich- 
tig entnommen werden. Jetzt 
könnte im C16 z.B. die im 
PLUS/4 eingebaute Software 
betrieben werden. Die Ein- 
schaltmeldung ist identisch mit 
der des PLUS/A: 3-PLUS-1 on 
KEY Fi. 


Sofern beim Huckepackverfah- 
ren die Höhe ausreicht, 
könnten nun auf den ersten 
EPROM-Satz weiter Sockel 
aufgelötet werden. Im PLUS/A 


EPROMs werden nicht in den 
Sockel gesteckt, sondern her- 
ausgebogen. Der mittlere Pol 
des Umschalters wird per Ka- 
bel mit Pin 28 des EPROMs, 
und einer der äußeren Pole des 
Schalters mit Pin 28 des So- 
ckels verbunden. Beim High- 
EPROM wird dann nur Pin 28 
des EPROMs herausgebogen 
und mit Pin 28 des Low- 
EPROMSs verbunden. Schalt- 
Skizze ist Bild 3. Das bisher ge- 
sagte gilt für EPROMs 27128. 


2.4 Größere EPROMs -mehr 
Kapazität 


Der C16 bezw. PLUS/4 verwal- 


.tet nur ROMs bis maximal 32 


KB, aufgeteilt auf ein LOW- 
EPROM und ein HIGH-EPROM 
(= 2x 27128). Wenn nun alle 
Steck- und Schaltmöglichkei- 


BASIC-ROM (U23.im PLUS/4, U3 im C16) an Pin 22 


(U24 im PLUS/4, U4 im C16) an Pin 22 


C1 Low Expansionsport Pin B 
Ci High Expansionsport Pin 6 
C2 Low Expansionsport Pin 7 
C2 High Expansionsport Pin 8 
Eingeb.Software U25 (Low)-an Pin 22 (nur PLUS/4) 
Eingeb.Software U26 (High) an 


sind von U20 die Pins 5 und 11 

‚bereits durch die eingebaute 
Software belegt. Deshalb wer- 
den dort die Schaltbeine (Pin 
22) der ersten beiden Sockel 
mit Pin 6 (für Low) und Pin 10 
(für High) von U20 verbunden. 
Dies gilt auch für den zweiten 
Huckepack-Satz im C-16. 


2.3 Abschaltmöglichkeit 


Modulsoftware, die über C1, 
also Pin 6 und 10 von U20, be- 
trieben wird, belegt zum Ein- 
schalten die Funktionstaste F2. 
Bei Diskettenbetrieb ist aber 
die Belegung mit ”DLOAD” 
sehr nützlich und sollte auch 
erhalten bleiben. Dies läßt sich 
sehr einfach dadurch errei- 
chen, daß zwischen Pin 28 des 
Sockels und Pin 28 des 
EPROMs ein 'Miniaturschalter 
(1xUM) gesetzt wird. Pin 28 des 
‚Sockels und Pin 28 des 


Pin 22 (nur PLUS/4) 


ten intern genutzt werden, bie- 
ten die Rechner Platz für 3Mo- 
dule mit 32 KB. Mit einem klei- 
nen Trick läßtssich diese Kapa- 
zität verdoppeln: durch Ver- 
wendung von EPROMs 27256 
(32 KB). 


Wenn wir die Pinbelegung der 
Typen 27128 und 27256 in 
Skizze 1 vergleichen, stellen 
wir fest, daß Pin 27 unter- 
schiedlich belegt ist. Einmal ist 
Pin 27 als Programmierimpuls- 
Eingang und einmal als 
Adreßleitung A14 ge- 
kennzeichnet. Der Rest ist 
identisch. Durch eine kleine 
Manipulation an Pin 27 kann 
das EPROM 27256 in 2 
EPROMSs 27128 aufgeteilt wer- 
den: das Potential wird 
verschoben. 

In der Praxis sieht das so aus: 
Liegt an Pin 27 +5 V an, er- 


kennt der Rechner die ”obere” 
Hälfte des EPROMSs als ”sein 
128er”, liegt an Pin 27 Masse 
an, erkennt der Rechner die 
”untere” Hälfte. Nach diesem 
Prinzip arbeitet auch die 
EPROM-Bank der Fa. 
BRAUNROTH, die auf 12 
Steckplätzen Platz für insges. 
392 KB Programme bietet. 


Das entsprechende Schaltbild 
istin Skizze 4 dargestellt. Zum 
Schalten wird ein Miniatur- 
Kippschalterr 2 x UM mit 
Mitte-Null-Stellung benötigt. In 
Mittelstellung ist das Modul ab- 
geschaltet und die F-Tasten 
sind wieder frei. 


3.0 MODULSOFTWARE 


Das Angebot an Modulsoftware 
für den C16 bzw. PLUSJ/A ist 
nicht berauschend. SKRIPT 
PLUS, CALC PLUS, TURBO 
PLUS, 3-PLUS-1 in Englisch 
und in Deutsch, und damit ist 
das Angebot schon erschöpft. 
Was bleibt, ist die Entwicklung 
eigener Module, wobei es je- 
dem Anwender selbst überlas- 
sen ist, welche Programme er 
als Modul betreiben möchte. 


Jeder User kennnt das Pro- 
blem: bestimmte Programme 
werden häufig benötigt und die 
Disketten mit ihnen sind nicht 
zu finden. Dann stört, selbst 
wenn das entsprechende Pro- 
gramm kurz ist, schon das La- 
den und Starten und man 
wünscht, gewisse Programme 
sollten auf Tastendruck bereit- 
stehen. Das ist der An- 
satzpunkt für eigene Module. 


3.1 AUTOSTARTMODULE 


Die ideale Ergänzung zur Dis- 
kette sind sogenannte AUTO- 
STARTMODULE. Hierbei muß 
das Modul nicht erst durch 
Drücken einer F-Taste initiali- 
siert werden, sondern es wird 
beim Einschalten des Rech- 
ners oder bei RESET aktiviert. 
Vorausgesetzt natürlich, das 
Modul ist nicht ausgeschaltet. 
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Mit der Inbetriebnahme des 
Computers (oder bei RESET) 
erscheint auf dem Bildschirm 
nicht die gewohnte Ein- 
schaltmeldung, sondern ein 
Menü, in dem die auf dem Mo- 
.dul befindlichen Programme 
aufgelistet sind. Außerdem wird 
gezeigt, mit welchen Tasten die 
Programme aufgerufen wer- 
den. Natürlich gehört dazu 
auch ein Menüpunkt 
"AUTOSTARMODUL 
VERLASSEN”, um wieder in 
den normalen Modus zu 
gelangen. 


3.2 MODUL-RESET 
Beim: Einschalten des Rech- 


ners und beim Drücken der 
RESET-Taste wird ein 


MODUL-RESET durchgeführt. ° 


Dabei werden nacheinander 
die Module 15, 10,5 und O ein- 
geschaltet. Dann wird in dem 
jeweils eingeschalteten Modul 
in den Adressen $8007 bis 
$8009 nach der Kennung 
»CBM” gesucht. Ist die Ken- 
nung vorhanden, wird aus der 
Adresse $8006 die Modul- 
Nummer gelesen. Das Basic- 
ROM z.B. hat die Modulnum- 
mer 00 und die 3-PLUS-1- 
Software die Nr. OC. Hat die 
gelesene Modul-Nummer den 
Wert 1, wird dieses Modul 
gestartet. 


Ein einfacher AUTOSTART- 
Kopf könnte etwa so aussehen: 


8000 4C OA 80 00 00 00 01 42 
8008 43 4d 


In Adresse $8000 erfolgt der 
absolute Sprung (4C = JMP) 
an die eigentliche Startadresse 
des Programms, in diesem Fall 
$800A. In $8007 bis $8009 
sind die C (=$42), B(=$43), 
M (=$4D)-Kennung enthalten, 
die ein Modul erst als solches 
erkennen läßt. In $8006 steht 
die Modulnummer 01. Dieser 
Kopf würde sich nur für ein 
größeres Maschinenprogramm 
eignen. Für ein 
AUTOSTART-Menü fehlen 
noch ein paar Informationen. 
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BEFEHL: LOW_($8000-$BFFF) : HIGH _($C000-$FFFF) : 

.STA $FDDO BASIC-ROM KERNAL-ROM 

.STA $FDD1 EING.SOFTW.LOW PLUS/4 KERNAL-ROM 

.STA $FDD2 EXT. SPEICHER LOW (C1) KERNAL-ROM 

.STA $FDD3 EXT. SPEICHER LOW (C2) KERNAL-ROM 

.STA $FDD4 BASIC-ROM EING.SOFTW.HIGH PLUS/4 
.STA $FDD5 EING.SOFTW.LOW PLUS/4 EING.SOFTW.HIGH PLUS/4 
.STA $FDD6 EXT. SPEICHER LOW (C1) EING.SOFTW.HIGH PLUS/4 
.STA $FDD7 EXT. SPEICHER LOW (C2) EING.SOFTW.HIGH PLUS/4 
.STA $FDD8 BASIC-ROM EXT. SPEICHER HIGH (C1) 
.STA $FDD9 EING.SOFTW.LOW PLUS/4 EXT. SPEICHER HIGH (C1) 
.STA $FDDA EXT. SPEICHER LOW (C1) EXT. SPEICHER HIGH (C1) 
.STA $FDDB EXT. SPEICHER LOW (C2) EXT. SPEICHER HIGH (C1) 
.STA $FDDC BASIC-ROM : EXT. SPEICHER HIGH (C2) 
.STA $FDDD EING.SOFTW.LOW PLUS/4 EXT. SPEICHER HIGH (C2) 
.STA $FDDE EXT. SPEICHER LOW (C1) EXT. SPEICHER HIGH (C2) 
.SIA $FDDF EXT. SPEICHER LOW (C2) EXT. SPEICHER HIGH (C2) 


‘Dazu später mehr. 


3.3 SPEICHERKONFIGURA- 
TION und _EINSCHALT- 
ADRESSEN 


Die Tabelle zeigt die möglichen 
Speicherkonfigurationen mit 
Einschaltadressen. : 

Die Umschaltlogik im C16 
bezw. PLUS/4 erlaubt es, aus 
diesen 16 Kombinationsmö- 
glichkeiten die gewünschte 
ROM-Konfiguration aufzurufen. 
Beispiel: der Anwender hat ein 
eigenes KERNAL entwickelt, 
möchte dieses aber nicht ge- 
gen das Original austauschen, 
sondern am Expansionport 
über C1 betreiben. Es soll nun 
also das BASIC-ROM zusam- 
men mit dem neuen KERNAL 
eingeschaltet werden. Diese 
Konfiguration entspricht der Nr. 
8 der Tabelle ($FDD8). Das 
folgende kleine Programm 


würde die Einschaltung 
realisieren: 

>1000 A2 05 LDX 
>1002 9D DO FD STA 
>1005 86 FB STX 
>1007 4C 00 80 JMP 
>1000 A9 03 LDA 
>1002 AO 80 LDY 
>1004 8D FE 02 STA 
>1007 8C FF 02. STY 
>100A A2 05 LDX 
>100C 86 FB STX 
>100E 4C C9 FC JUMP: 


Mit diesem Beispiel wird die 
achte Möglichkeit aus der Ta- 
belle eingeschaltet. Von $ 8000 
bis $BFFF liegt das BASIC- 
ROM und von $C000 bis 
$FFFF das eigene Kernal. 


Übrigens, das Betriebssystem 
des PLUS/4 (und C-16) gibt 
zum .Einschalten und Starten 
der ROMs einige Hilfen. Bei 
$FCC9 (DEC 64713) beginnt 
eine Routine, die das Modul 
einschaltet, dessen Nummer 
im X-Register steht. Dann wird 
ein Sprung zu der Adresse 
ausgeführt, dessen LOW-Byte 
in $02FE und dessen HIGH- 
Byte in $02FF steht. Dies sollte 
die Startadresse sein. 

Mit dem zweiten Beispiel wird 
die eingebaute Software des 
PLUS/4 gestartet. Diese klei- 
nen Beispiele können natürlich 
für eigene Zwecke abgeändert 
werden. Sie sollen dem inter- 
essierten Anwender lediglich 
einen Hinweis auf die Vielzahl 


der Möglichkeiten bieten, über 
die der PLUS/4 verfügt. ° 


Mehrfach ist jetzt die Adresse 
$FB aufgetaucht. Diese _ 
Adresse enthält immer die ak- » 
tuelle Speicherbankkonfigura- 
tion. Das Interruptprogramm 
wird jede 60stel Sekunde ab- 
gearbeitet. Nach dem Inter- 
ruptprogramm wird die Spei- 
cherkonfiguration eingeschal- 
tet, deren Nummer in $FB 
steht. Normalerweise ist dies 
der Wert $00 (siehe Tabelle: 
BASIC-ROM und KERNAL- 
ROM). Würde in den Beispie- 
len der Wert in $FB nicht ge- 
ändert, würde der nächste 


. Interrupt wieder das normale 


Betriebssystem einschalten. 
Literaturhinweis: 

ALLES UBER DEN PLUS/4 
UND ROM-LISTING PLUS/4. 
Beide von Markt und Technik. 


Heinz-Werner Schrimpf 


in X-Resister 


Beispiel 1 
#$08 :Nummer der Konfig. 
$FDD0,X :Konfig.einschalten (+ -X-Rag.) 
$FB :gefundene Nummer in $FB ablegen 
$8000 :Modul initialisieren 

Beispiel 2 
#503 :LOW-Byte der Startadresse 
#$80 :HIGH-Byte der Startadresse 
$02FE :Startadresse LOW 
$02FF :Startadresse HIGH 
#$05 :Modulnummer (siehe Tabelle) 
$FB :Modulnummer in $FB eintragen 


$FCC9 


:Modul einschalten und Starten 


57 


BEE KURS 


SKIZZE 1 Schaltungsvorschläge 


Pinbelegung 
im Vergleich ' 





SKIZZE 2 Belegung Expansionsport 
23.24 23 22 21.20 19 18 17 16 15 14 13 12.1710 9.8 765 4 3 274 





CE BER ZE ER UN EB R DON Mo be RI H--PF 5.DIO Ber 


SKIZZE 3 Modul abschalten 
+5V 


| 


® 
Schalter 1 x UM 






SKIZZE 4 Um- und Abschalten EPROMs 27256 


Schalter 2 x UM 
mit Mitte Null 





+5V 
(14=0nn)"4 
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Startadressen-Lister 
Im Sonderheft 4/88 druckten 
Sie.den ”Startadressen-Lister” 
ab. Dieser hat aber einen klei- 
nen Schönheitsfehler: Jeder 8. 
Directory-Eintrag: wird nicht 
aufgelistet. Dieser Fehler läßt 
sich jedoch sehr einfach korri- 
gieren. Im Listing muß der er- 
ste Wert in Zeile 1069 von 07 
auf 08 abgeändert werden. 
Eine andere Möglichkeit be- 
steht darin, mit dem POKE 
4648,08 das fertige MC-File zu 
korrigieren. Übrigens das Pro- 
gramm "Funny Letter” hat mir 
sehr gut gefallen. 

Frank Lehmann 


Red. 

Danke für die Korrektur! Der Feh- 

ler wurde leider erst nach dem Ab- 
“druck festgestellt. 


Großes Lob 

Ich besitze seit einem halben 
Jahr einen Plus/4, fast alle 
Compute mit - Hefte, jedoch 
alle Sonderausgaben! Das sind 
die besten Zeitschriften, die 
derzeit für die kleinen Commo- 
dore auf dem Markt sind. Da- 
her möchte ich Ihnen ein 
großes Lob aussprechen. Gut 
ist auch, daß die Comics zu ei- 
nem kleinen Teil geschrumpft 
sind. Mit der Zeit (ich besitze 
auch die erste Ausgabe SA 
1/86) wurde auch die Qualität 
der Programme besser! Meine 
Frage wäre allerdings die, wie 
kann ich ein Programm mit ei- 
nem Autostart versehen? 
Edgar Cuhsmann 


Red. 

Danke für das Lob! Leider ist das 
mit dem Autostart gar nicht so ein- 
fach. Wir werden jedoch versuchen, 
in der nächsten Ausgabe ein ent- 
sprechendes Utilitie unterzubrin- 
gen. 
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Variablen verändern? 

Gibt es eine Möglichkeit, z.B. 
durch einen "POKE”, im Ver- 
laufe eines BASIC-Program- 
mes die zu Beginn des Pro- 
grammes dimensionierten Va- 
riablen umzudimensionieren? 
Rolf Neubert 


Red. 

Wurde ein Feld bereits dimensio- 
niert, so läßt sich diese Dimensio- 
nierung nicht mehr verändern. 
Man sollte deshalb versuchen, das 
Feld entsprechend groß 
vorzudefinieren. 


Fragen über Fragen 
Anfrage an Herrn Brall: Grund 
meines Schreibens ist Eure 
Mailbox, an der ich sehr inter- 
essiert bin. Da Sie meiner Mei- 
nung nach sich mit nützlicher 
Arbeit am Computer ausken- 
nen, wende ich mich an Sie. 
Mit welchem Computer kann 
man arbeiten bzw.‘ welcher ist 
am.. geeignetsten (Amiga, 
C128, C64)? Welches Übertra- 
gungsgerät ist am besten 
(Modem, Akkustikkoppler, BTX 
Modul) bzw. welches würden 
Sie empfehlen? Für welchen 
Computer sind die angebote- 
nen PD Programme? Ist der 
Anruf bei Ihnen (der Mailbox) 
durch die Post verbilligt oder 
läuft alles normal? Welche 
Software wird zur Kommunika- 
tion benötigt? Wie werden die 
sogenannten Parameter ein- 
gegeben? Was kostet der 
User-Eintrag? 


Red. 

Antwort Frank Brall: Bevor ich die 
Fragen beantworte, möchte ich dar- 
auf hinweisen, daß es sich um meine 
persönliche Meinung handelt. Für 
den geeignetsten Computer halte ich 
ohne Zweifel den PC (IBM 


LESERECKE EEE 


kompatibler), Von den genannten 
Typen kann ich nur den AMIGA 
nennen, obwohl auch er mir nicht 
so recht- zusagt. Als sinnvollstes 
Übertragungsmedium würde ich 
BIX empfehlen. Public Domain 
Programme gibt es mittlerweile für 
fast alle Computertypen, 
insbesondere für den PC, AMIGA 
und ATARIST. Leider sind die Te- 
lefongebühren bei einer Verbindung 
mit unserer MAILBOX_ nicht 
ermäßigt. Für die Kommunikation 
benötigt man ein Terminalpro- 
gramm. Je nach Computertyp gibt 
es hier unterschiedliche Programm. 
wersionen bzw. Programmbezeich- 
nungen. Die Parameter- 
eingabe erfolgt bei jedem Terminal- 
programm anders. In der Regel ge- 
schieht.dies über ein übersichtliches 
Menü. Ein USER-Eintrag ist bis- 
ber kostenlos. Allerdings können 
aus technischen Gründen vorerst 
keine weiteren USER aufgenom- 
men werden. 


Biorythmen 

In Ihrem Sonderheft 3/88 ha- 
ben Sie das Programm 
"BIORYTHMEN”  veröffent- 


licht. Dieses Programm hat 
mein besonderes Interesse ge- 
funden. Nun zum Anlaß meines 


Schreibens. Besteht die Mög- 


lichkeit, die im o.g. Programm 
errechneten Diagramme aus- 
zudrucken, und wenn ja wie? 
Rolf Kuhring 


‚Red. 

Eine Druckerausgabe ist in diesem 
Programm nicht vorgesehen. Es 
dürfte jedoch nicht schwierig sein, 
eine solche Routine nachträglich 
einzubanen. In den vergangenen 
Ausgaben haben wir bereits für 
unterschiedliche Modelle 









u 
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Hardcopyroutinen abgedruckt. 


Langjähriger Leser 
Auf meinem Plus 4 tippte ich 
das Programm SOLVE MAS- 
TER ab. Trotz mehrfacher 
Überprüfung mit beiden 
Checksummern läuft das Pro- 
gramm nicht korrekt. Ein 
ein-zügiges Matt wird ein- 
wandfrei und schnell berech- 
net, aber ab zwei Zügen er- 
scheint immer "KEINE 
LÖSUNG”. Dieser Fehler tritt 
auch bei Ihren beiden 
Beispie*len auf. Seit über 3 
Jahren tippe ich regelmäßig 
nur Ihre Programme, aber so 
etwas ist mir noch nicht 
passiert. 

Günter Gast 


Red. 

In der Tat mußten wir feststellen, 
dafs es bei einigen Geräten vom Typ 
PLUS 4 zu solchen Meldungen 
kommen kann. Dieser Fehler tritt 
allerdings nicht bei allen Compu- 
tern auf, so beispielsweise nicht beim 
erweiterten C16. Es stellte sich her- 
aus, daß es unterschiedliche Be- 
triebssysteme gibt, bei denen insbe- 
sondere die Initialisierung des Spei- 
chers unterschiedlich gelöst wird. 
Der Fehler läßt sich. beheben, indem 
man den Speicherbereich 16384 bis 
17407 (# 4000-3 43FE) mit 0 initia- 
lisiert. Dies kann wahlweise mit ei- 
ner FOR-NEXT-Schleife oder ei- 
nem Monitorbefehl geschehen. 


Wie verhext! 

Ich besitze seit einiger Zeit ei- 
nen C-116. Bisher hatte ich viel 
Freude mit ihm, aber seit ca. 3 
Wochen ”spinnt” er total. 
Wenn ich einschalte, kommt 
das normale Titelbild: COM- 
MODORE BASIC V3.5 12277 
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BYTES FREE. Nachdem ich 
jedoch 3 Zeilen getippt habe, 


schaltet er plötzlich von 
"normal” auf ”groß” um. Kurz 
danach schaltet er plötzlich 
wieder zurück. Und dann läuft 
nichts mehr: die Tastatur streikt 
und nur RESET hilft, ihn wieder 
zu erwecken. Wenn ich ihn 
dann ausschalte, muß ich ihn 
mindestens 30 Sekunden aus- 
geschaltet lassen, sonst er- 
reicht er gar kein Titelbild. Liegt 


das Problem vielleicht darin, 


daß ich beim Speichern des 
Laufschriftgenerators verges- 
sen habe, den Checksummer 
vorher auszuschalten. Oder 
liegt es darin, daß bei uns 230 
Volt aus der Steckdose kom- 
men - das Netzteil liefert 15 Volt 
im Leerlauf? Ist das normal? 
Andreas Stuffer 


Red. 

Leider scheint Dein Rechner wirk- 
lich nicht mehr ganz in Ordnung 
zu sein, ich tippe auf Videoprozes- 
‚sor oder CPU. Du solltest den 
Rechner unbedingt zu einem 


Fachmann bringen. Das mit 230 V’ 


ist durchaus normal, außerdem 
zeigt nicht jedes Meßsgerät die effek- 
tive Netzspannung an, so daß es zu 
überhöhten Anzeigen kommen 
kann. Auch die Leerlaufspannung 
von 15 Volt ist durchaus normal, 
sie wird ja durch den eingebauten 
Spannungsregler kompensiert. 


Brauchbare Kniffe 

Erst mal herzlichen Dank, daß 
wenigstens Ihr noch den C16 
hochhaltet, was man von an- 
deren Verlagen nicht 'gerade 
behaupten kann. Vom 64er 
Magazin gab's das letzte Son- 
derheft vor fast einem Jahr, im 
Stammheft hat der C16 auch 
schon Seltenheitswert. Die 
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RUN gibt es seit Februar die- 
ses Jahres überhaupt nicht 
mehr.und den Rest kann man 
sowieso vergessen. Doch nun 
zum Brief eines Lesers, der 
schrieb, daß mit dem NCS ko- 
pierte Programme, welche die 
Startadresse 1010 haben, nicht 
lauffähig sind. Das trifft nur bei 
einteiligen Programmen zu, 
wenn man sie per SYS starten 
will. Solche Programme sind 
der Idealfall, dasie gewöhnlich 
eine Basiczeile mit dem ent- 
sprechenden SYS enthalten. 
Bei zweiteiligen Programmen 
kann man gleich aufgeben. 
Aberes gibt auch Ausnahmen, 
so konnte ich ”MR PUNI- 
VERSE” ohne Hilfsmittel auf 
eine Disk übertragen. Außer- 
dem kenne ich für Terra Nova 
einen Schummelmodus. Wenn 
man nach einem Crash sofort 
einige Tasten drückt, werden in 
der Live-Anzeige wild Zeichen 
durchlaufen. Danach hat man 
eine große Menge (unendlich 
viele?) Leben zur Verfügung. 
Damit müßte man es schaffen 
‚ alle 12 Sektoren zu durchtflie- 
gen. Diese Methode hat aller- 
dings zwei Haken. .Bei der 
Plus/4 Version werden die 
übrigen Screens nicht automa- 
tisch nachgeladen, was aber 
nicht sehr schlimm ist, da mit 
RUN/STOP-RESET das Pro- 
gramm unterbrochen werden 
kann. Zum Schluß noch zwei 
Fragen: Wo bekomme ich das 
Textprogramm "Script Plus”, 
und wo bekomme ich ein 
Handbuch für den Citizen 


'120D? Bei mir fehlte es vom 


ersten Tag an. 
Daniel Schultz 


Red, 

Danke für den Tip, ich glaube viele 
Leser freuen sich darüber. Das Pro- 
gramm Script Plus ist über die 
Firma Markt & Technik (München) 


zu beziehen. 

Das fehlende Handbuch würde ich 
beim Händler reklamieren, da es 
sonst sicherlich schwer zu beschaf- 
fen sein wird. 


Kleines Problem 

Ich bin Anfänger und habe ein 
kleines Problem. Wie kann 
man MC-Programme zwi- 
schendurch absaven, um sie 
zu einem späterem Zeitpunkt 
zu vollenden. 5 

Dennis Pollmann 


Red, : 
Möchte man ein MC-Programm 


nur teilweise abspeichern, so sollte 


man sich ruhig an die angegebene 
SAVE-Anweisung halten. Später 


"kann dieser Bereich vom TED- 


MON (bzw. MC-Checksummer) 
aus, wieder eingeladen und ver- 
vollständigt werden. 


- Guter Rat 


Ich habe seit ca 2 1/2 Jahren 
einen Plus/4 und lese Euer 
”Compute mit” Sonderheft 


. regelmäßig. Die Zeitschrift ist 
echt super! In der Ausgabe’ 


4/88 ist ein Programm, das 
über den Kassettenport digita- 
lisiert. Doch es gibt noch ein 
Problem. Man kann ein digita- 
lisiertes Stück nicht in eigene 
Programme einbauen. Hier ist 
die Lösung! 


1. Nachdem man mit der Taste 
”S” digitalisiert. hat, drücken 
Sie die RESET-Taste (lassen 
sie aber nicht los) drücken 
RUN/STOP und lassen schließ- 
lich die RESET-Taste los. Jetzt 
geben Sie zum Speichern 
S”"PROGRAMMNAME” 8(1),- 
2000,8000 ein. 

2. Geben Sie nun folgende Zei- 
len ein: 


- Programmteil ab: 


)1A89 A9 OB 8D 06 FF A2 00 
AO 

)1ACE A9 1B 8D 06 FF 60 00 
00° 

3. Speichern Sie auch diesen 
S”PRO- 
GRAMMNAME” ‚8(1),1A89,1- 
ADA 

Wenn Sie diesen Programmteil 
abgespeichert haben, können 
Sie ihn für jedes digitalisierte 
Stück verwenden. Die Spei- 
cherstellen $ 1497, $1A9B und 
$1ACB enthalten Anfang und 
Länge des _digitalisierten 
Stückes. 


4. Vom Basic aus startet man 


das Programm mit SYS 6793. 
Wer das Programm: nicht im 
Speicher verschieben kann, 
kann das Programm jedoch als 
Vorprogramm nutzen. 


Red. 

Vielen Dank für den guten Rat! 
Es ist immer wieder erfreulich, wie 
gut der Austausch.über die Lesere- 
cke funktioniert, 


In eigener Sache 

Im Heft 4/88 stellten wir das 
Programm Datex - Textverar- 
beitung und Adressverarbei- 
tung in einem - vor. Wir teste- 
ten die Diskettenversion dieses 
Programms. Die Diskeitenver- 
sion ermöglicht eine relative 
Adressverwaltung. Anders ver- 
hält sich dies bei der Kasset- 
tenversion. Dies versteht sich 
eigentlich von selbst, denn das 
mit Kassette keine relative 
Adressverwaltung möglich ist, 
liegt am Datenträger. Nun ha- 
ben aber wohl einige Leser 
diese Kassettenversion beim 
Hersteller bestellt, in der 
Hoffnung eine relative 
Adressverwaltung zu erhalten. 
Der Hersteller bat uns daher, 
das Mißverständnis aufzulösen. 
Die Red, 
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Biete Software 





An alle C-16/plus 4 Disk-User! 
Supergünstig! Verkaufe auf Disk: 

500 Programme für 50 DM oder 

900 Programme für 80 DM oder 

1000 Programme für nur 120 DM. 
Außerdem diverse Original Software auf 
Kassette zum halben Preis. Betrag an: 
Jens Schröder - 
Osterholzer Mühlendamm 55 

2800 Bremen 44, Tel.: 0421/421238 





Verkaufe Software für C-16 
Liste gegen Rückporto. 

Ralf Schwender, Hebelstr. 7, 
7535 Königsbach-Stein 1 





Dohle-Soft presents: 
C-16/116/Plus 4 Topsoftware zu fairen 
Preisen! Z.B. Spielpakete ab 5,90 DM! 
Textverarbeitung nur 9.90 DM! 
Joystickadapter nur 8.90 DM. 
15.08.88 - 30.09.88 Aktionswochen! 
Software bis zu 50% reduziert! INFO 
gegen 80 Pf. bei: 

DOHLE-SOFT 

Deichweg 6, 2935 Bockhorn 





c-16/116/plus 4 

Verkaufe für 20 DM 30 Programmel/pro 
Listing-Programm 1 DM. Angebote an: 
Thomas Dietrich, Weinstr. 5, 

6352 Obermoerlen, gegen Vorkasse! 





Verkaufe c-16 Pro- 
grammsammlung mit 72 Spielen 
(z.B. Fire Galaxy, Timeslip; Airwolf, 
Monty 1 und 2) für 35 DM auf Disk! Info 
gegen Rückporto bei: 

Kai Uwe Boß, IImenweg 5, 

6422 Herbstein, 

Tel.: 06643/8286 ab 18 Uhr 
Bestellung nur gegen Vorkasse! P.S. 
Suche auch Tauschpartner. 

Schickt eure Listen! 
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Plus 4 Freunde-Achtung! 

Wer sucht ernsthafte Programme und 
welche? (nur Anwender oder 
Wissenschaftlich), in professioneller 
Usertechnik! Bitte schreibt Eure Wün- 
sche und Ideen an: 

Bavarian-Soft - R.H. Sieg 

8498 Arnbruck oder Tel.: 09945/540 





€©-16/116/Plus 4/TapelDisk 
Randvolle Freeware Cass./Disk 
(Games, Anwender, Adventure) gegen 
10 DM Schein an: 

Susanne Anderka, Lerchenweg 8, 
8872 Burgau 





Zeitschriften/Bücher und C-16 
Games zu verkaufen. Liste gegen 
Rückporto bei: 

H. J. Gertlowski, Am Maasend 11, 
4173 Kerken 2 





€©-16/116/Plus 4: 30 Games auf Tape 
für nur 10 DM incl. 2 DM Porto). Schein 


an: 

Dietmar Neumann, Trierer Str. 398, 
5100 Aachen 

P.S. Tausche auch Games!!! _ 





Verkaufe laufend die neuesten 
Spiele und Anwenderprogramme für C- 
16/Plus 4 auf Tape und Diskette für 20 
DM 


Tel.: 05221/15281 ab 19 Uhr! 





C-16/Plus 4 20 Games: 

AGE, Quiwi, Paint-box, Jetset Willy u.a. 
20 DM. Nur Vorkasse! Geld + Porto an: 
Mariusz Sawicki, Bunzlauer Weg 4, 
3203 Sarstedt, nur Disk! 





Freesoftware für C-16/116/Plus 4, 8 
Diskseiten ca. 250 Programme, ca. 
5000 Blocks zu 20 DM. 

Viktor Jürgens, Prinzenstr. 131, 

2330 Eckernförde 





©-16/116/Plus 4 
Originalprogramme ab 5 DM!!! 

- Infos gegen Rückporto - 
SW-Gesamtkatalog mit großem Anwen- 
derteil gegen 3 DM Schutzgebühr! 
Thomas Milles & Schröder 

Postfach 15 24, 5440 Mayen 1 
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Private Kleinanzeigen wer- 
den nur gegen Vorkasse 
veröffentlicht! 


Zur Bezahlung von Kleinan- 
zeigen werden keine Brief- 
marken oder Fremdwährun- 
gen mehr entgegengenom- 
men! 


Kleinanzeigenaufträge unter 
Angabe einer Postlagerkar- 
tennummer oder Hin- 


Herbst-Katalog 1938 

Der neue Herbst Software/Zubehör Ka- 
talog für Ihren Commodore 16/116/Plus 
4 ist da! Original-Software zu Niedrig- 
Preisen. Fordern Sie diesen noch heute 
für nur 0,80 DM an. Es lohnt sich für Sie 
und Ihre Geldbörse!!! P. Schäfers, Rie- 
kestr. 5, 4402 Greven 1 





C-16(64KB)/Plus 4 10 64KB Spiele: 
ACE 1 + 2, Jump Jet, Out on a Limb, 
Quiwi u.a. 20 DM. Geld + Porto + 2 
Disketten an 

M. Sawicki, Bunzlauer Weg 4, 

3203 Sarstedt, nur Vorkassel!! 


Achtung C-16/116/plus 4 FRE- 
AKS! Verkaufe gegen Einsendung von 
20 DM-Schein und 4 Disketten 8 Dia- 
Shows (Super Girls). Oder 20 Spiele ge- 
gen Einsendung von 20 DM-Schein (nur 
Disk!). Beides zusammen nur 30 DM!!! 
Michael Hörler, Jakob-Larscha-Str. 5, 
6072 Dreieich 


Wichtige Hinweise 
für Kleinanzeigeninserenten: 






weis „postlagernd” werden 
nicht veröffentlicht. 


Der Verlag behält sich vor, 
alle von der Bundesprüfstelle 
indizierten Programme, er- 
satzlos zu streichen. 


Wir weisen darauf hin, daß 
urheberrechtlich geschützte 
Software nur im Original zum 
Verkauf oder zur Verbreitung 
angeboten werden darf. 


10 oder 20 Super-Programme für 
10 bzw. 20 DM. C-16/116/Plus 4. Info 


- gratis. Geld + Kassette an: 


Thomas Schulte, Mozartsir. 95 
4470 Meppen 





Verschenke Probedisk C-16/Plus 4 
an die ersten 100 Antworten gegen 2x 
80 Pf. in Briefmarken (Rückporto). Biete 
Public-Domain Software 25 Disks nach 
Sachgebieten geordnet, z.B. 'Spiele, 
Adventures, Utilities, Computer, Dru- 
cker, Dateien, Software für Schule, 
Grafik... ; 

F. Eitner, 

Dr. Beber-Str. 17, 

2222 Marne 





Verkaufe Originalspiele für 0-16 
(keine Raubkopien) - ACE 64K Kass., 
Karate King Kass., Terra Nova Kass. 
u.a. 

Thomas Spinner, 

Hornisgrindestr. 3, 

7602 Zusenhofen 





LOGO für Plus 4/C-16(64K) Modul 
Demodisk und Handbuch für 50 DM bei 
Vorkasse (V-Scheck) NN+5 DM. 

Harald Hobbelmann, Junkernkamp 18, 
2822 Schwanewede, Tel.: 04209/5390 





Verkaufe 3 Disks mit ca. 170 Pro- 
grammen für C-16/Plus 4. Utilities und 
Spiele von A bis Z für 30 DM bar. Habe 
u.a. noch Originalkassetten! 
Alexander Weide, Talweg 15, 

7407 Rottenburg 21 





C-16(64K) Programme für Kleinbe- 
triebe jeder Art. Lagerverwaltung, 
Adressverwaltung, Fakturierung + Kon- 
tokorrent (Disk), Infos: 

S. Ruppel, Zum hohen Lohr 7, 

3559 Haina 2, Tel.: 06456/288 





*** G.16/Plus 4 User *** 
Verkaufe Spiel-Kopier- 
Anwenderprogramme! Auf 2 Disks 
(beidseitig bespielt). Alles zusammen 20 
DM! Schickt Euren Schein an: 

Marc Brunsmann, Bernhardstr. 12, 





2843 Dinklage 
P.S.. Suche SYS-Cracker, Winter- 
Olympiade 
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C-16/C-16 + 64KB/Plus 4 

Super günstig, Software, Disk oder 
Tape, Gratisliste bei: 

J. Schramme, 

Postfach 16 31, 

3260 Rinteln 1 


c-16/116/PLus 4. 

30 Games (keine Raubkopien!) auf Tape 
für nur 10 DM! Schein an: 

Dietmar Neumann, 

Trierer Str. 398, 

5100 Aachen 

P.S. tausche auch Games!!! 
ee 
Hallo Freaks!!! Biete über 1200 Pro- 
gramme für Stück 2 DM. Spiele und 
Anwender. Superprogramme. Liste ge- 
gen 1 DM bei: 

Thomas Schnabel, i 

Lyckstr. 66B, 

4352 Herten 
Er a en ES 
C-16/116/ +4 Software 

von ANGEL-Soft. Superbillige Spiele 
und Anwenderprogramme mit Anlei- 
tung. Und das Tollste: keine Versandko- 
sten (nur diesen Monat!) Das alles gibt 
es nur bei 

Angel-Soft, Oliver Dangel, 
Riesbergstr. 37, 7157 Murrhardt 

Liste gegen 80 Pf. in Briefmarken 


C-161116 + 64 KiPlus 4 

Verkaufe Original C-16 Spiele auf Kas- 
seite wie ACE(64K), Winter Olympiade 
uvm. Gratis Preisliste gegen Rückporto 
bei: 





Jochen Bestgen, Gartenstr. 21, 
5439 Bad Marienberg 


Plus 4 und Videofilmfreundel 
Alles was es bisher an sog. Videoda- 
teien gibt, könnt Ihr vergessen! Biete 
sysiem- und absturzsicheres Programm 
für den Praktiker. DISK oder TAPE, mit 
ausführlicher Anleitung. 40 DM incl. 
Verpackung und Inlands-Porto. Ver- 
rechnungsscheck oder Vorkasse an: 
BAVARIAN-SOFT R.H. Sieg, 

8498 Arnbruck 

Tel.: 09945/540 
en ee a Tr 
Wait a minute! Verkaufe für Plus 
4/0-16(64K) 1 Disk (2seitig) für nur 20 
DM. Garantiert nur Topgames. Info bei: 
A. Jungheim, Tulpenweg 4, 

3430 Witzenhausen 6, Porto beilegen! 
AN 
FREESOFT für C-16/Plus 4 
Programme ab 0,20 DM! Keine Raub- 
kopien! Demodisk gegen 10 DM. Liste 
gegen 1 DM bei: 

Helge Kunst, Hauptstr. 23, 

2251 Olderup 
——_ 
Angebot! Plus 4 und C-16/64K 
140 Superspiele (ca. 5300 Blocks) auf 
4 Disks nur 30 DM Vorkasse 

Peter Schulz, Baeuminghausstr. 70, 
4300 Essen 12, Tel. 0201/326733 
a 
Plus 4 .- C16+64K Public- 
Domain-Softpaket! 4 volle Disksei- 
ten (Spiele und Anwender) für 20 DM 
bei: 


T. Gilsbach, Waldstr. 35, 

5948 Fredeburg, Tel. 02974/6378 - 
en er 
C16/Plus 4 User 

Besitzen Sie Turbotape von Kingsoft 
oder ETP? Wünschen Sie sich hierfür 
einen Autostart? Dann 10,- DM Schein 





an: 
H. Lindenzweig, Siegwohrstr. 1, 

2913 Apen 
EEE ERBE 
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Plus 4/C-16 Tauschpartner ge- 
sucht 

Habe genügend Software zum Tausch! 
Sendet Eure Liste an: 

Dirk Freund, 

Rosenstr. 7, 

3563 Elmshausen (nur Disk)! 





Suche Tauschpartner für C-16/Plus 
4, nur Diskette! 

Stefan Laskowski, 

Lindenstr. 10, 

2741 Kutenholz 





Suche Tauschpartner für C-16 und 
1541. Verkaufe C-16 Spiele auf Kas- 
sette. Liste an: 

Martin Galan, 

Im Beckmannsfeld 22, 

4300 Essen 13 
RE TFT ER | 
C-16/Plus 4 suche Tauschpartner 
und Adressen aus Ungarn, England...! 
Biete a Adresse viel Software! Disk! 
Habe 1000 Programme! 

F. Pietsch, 

Königsbergerstr. 2c, 

5000 Köln 60 


Der.”M.U.C.K.” sucht Mitglieder im 
In- und Ausland. Infos bei: 

Martin Mücke, 

Lindenstr. 10 A, 3308 Koenigslutter, 
80 Pf. Rückporto nicht vergessen 








C16/Plus 4!!! Suche Tauschpartner 
und Adressen aus Ungarn...! Sucheden 
NCS-Packer/Deli Compaktor...! Habe 
1000 Prg.!- Disk! Liste an: 

F. Pietsch, 

Königsberger Sir. 2C, 

5000 Köln 60 





Wanted: Software für Plus 4 auf 
Tape. Suche dringend Strategie- 
Action-Games usw. Listen an: 

Robert Kruth, 

Markussir. 15, 

4470 Meppen : 

Grüße alle Emsländer und SVN! 
ET, 
Hilfe dringend!!! Suche für Drucker 
CPA 80 C und Plus 4 Treiberprogramm, 
hauptsächlich Grafik. Angebote an: 

A. Freitag, 

Iprumper Dorfweg 39, 

2870 Delmenhorst 

Tel.: 04221/72525 
ee Be Be Er 
Suche gebrauchte c-16 
Sonderheft-Software (Kassette oder 
Diskette). Auch andere Spiele oder An- 
wender (nur Originale). 

W. Schleicher, Fr. Ebert-Str. 6, 

8632 Neustadt 
Te 
Plus 4* **Plus 4* **Plus 4 

Fehlen Dir noch Anleitungen zu Pro- 
grammen und Spielen? Mir auch. Bei 
Tauschinteresse bitte wenden an: 
Alfred Hansen, Dedolphstr. 4, 

5100 Aachen 
Eee ee 














SERIES ODONLLDDLDDLLLDELDLLLDLLDLLSLLLSLLSDLLDLLLZLISLLLLLELII III 
LEERE REEL LEERE EEE ER 
REES NTTNENNDLNLNNSTTNNNDN EINEN SSSLTLCCLEN 
ALL 5 
NA 


RX Sven Faulhaber’s Softwareversand 














































































































































AL 

RR Supersoftware für den C16/116 und PLUS/4 zu Minipreisen Ba 
ALL AR 
AN, KL .. 2 = INANX 

Rx Spiele Kass. Disk Spielesammlungen Kass. Disk ISSN 
Ka Tube Runner 24,90 Sıx of the Best (64K) 24,90 RS 
NEN ” RAN 
X Champıonsship Wrestling 24,30 Sextett (64K) 29,90 Ra 
A Ikarı Warriors 24,90 Indoor Sports 24,90 NEN 
RR Sommer Olympiade 24,90 -24,90 Four Great Games I u. 2 je 16,90 RR 
My _ Winter Olympiade 24,90 24,90 Four Great Games 3 14,90 SER) 
MAG Dingbat 8, Omnibus 1 und 2 Je 24,90 RR 
SS Wav of the Exploding Fıst 8,90 = SSR 
N Steve Davıs Snooker 8,90 Zubehör RA 
KR Formula I Simulator 9,90 Abdeckhaube C16 10,- AR 
MA  Masterchess 9,90 64«-Speichererweiterung 69, RAM 
Na Joystick-Adapter 9,90 RA 
RK Anwenderprogramme Kass. Disk RR 
Den Sn 5 3 64k-Spiele Kass. Disk RN 
Turbo Text 19,90 ACE 14,90 19,90 MN 
MM Turbo Dateı 19,90 ACE 2 27,90 33,90 AN 
KR  Austro Speed Compiler (64K) 149,- Quiwı 24,90 RN 
















RX Gratisinfo gegen frankierten Rückumschlag #® 24h-Bestelltel.: 0550772361 INS] 
IS 5 - I 
MI SF Soft, Abt. E, Mühlenweg 7, 3401 Seulingen 8% 
3% Alle Preise in DIT zzgl. Versandkosten COM 2,50 bei U-Scheck/Bar bzw. DH 5,- bei NN in Deutschland) KON 









N] 
ULSSIISTTTITEEEG SFSIFIIFISIIISSIFIFIFIIITITSTFFTTFHITEIUEHEETTETTET TG RR 
VORIIIEEIEDSSTSSSSSTTTISSZSTTTTTSTTTTITTITTTTTTHTTFFFFTTIISIIIITSSTTITHRN 
EREESELLTESLLLSENEELNSERDELER 
VRR RPRDDDPDIPAISINIIPPNNPTDLSTTSSSSITIITIIISTSSSLITLSTLEEETTLLTTTTLLTTLEEREEN 


Computer Serbice 


Michael& Joachim Maier GbR 
Postfach 1304 - 7913 
Telefon (07307) 6230 


SPIELPROGRAMME C-i6/C-118/PLUS4 ANWENDERPROGRAMME 























































































ACE 64K (KR) 1490 (D)24% | TURBO PLUS MODUL (M) 3900 
FORTRESS MUSIC MASTER (K) 1790 (D) 1790 

UNDERGROUND {) 90 (D) 990 | PRO FILE'DATENBANK 64KB (D) 5900 
MERCENARY COMP (90 (D) 4900 | FAKTURA 64KB (D) 9990 
MERCENARY 64.KB MN (0) 4% | TEXTWORD II 64KB (0) 4990 
FIRE GALAXY (Rd 90  (D) 990 | TEXTSTAR 2000SL 64KB (D) 7900 
SUNSTAR K) 70 PROFIPACK Il 64KB (D) 12000 
STRIP POKER Il+ 64KB (K) 24% (D)2490 | PAINT BOX j (D) 1690 
TUBE RUNNER (K) 24,0 GKR FIBU KB {D) 6800 
ACE 2 230 (AR 
POWER PACK (10 SPIELE) (K) 24.90 = NEU - NEU - NEU - NEU - NEU - NEU - NEU - 
OMNIBUS 1 (0 SPIELE) (K) 2490 
OMNIBUS 2 (10 SPIELE) 240 Datatex 64KB K 2490 D 3490 
016 COMPILATION N 90 Textverarbeitung 80 Zeichen, Serienbriefoption (nur 
BMX SIMULATOR N 90 Disk) indiv. Druckeranpassung und dt. Zeichensatz 
CHAMPIONCHIP (Monitor ist unerläßlich') 

WRESTLING 240 
PLUS 4 SEXTETT&4KB (K) 24,90 6 
DEMOLITION N 90 (D) 90 
ALIENS (20 JOYSTICKADAPTER 990 
EXPLODING FIST K 990 JOYSTICKVERLÄNGERUNG 140 
LIBERATOR 9N QUICKSHOT II 140 
SOMMER OLYMPIADE (N 240 (D) 2490 | 64 KB RAM ERWEITERUNG L.h) 
FRANK BRUNOS BOXING  {k) 990 ABDECKHAUBE PLUS 4 11,90 
INDOOR SPORTS (K) 24,0 ABDECKHAUBE 
STEVE DAVIS SNOOKER (K) 11,90 C 1615301551 ge 7% 
SABOTEUR (AUCH 64KB) (K) 990 DATASETTENADAPTER 149 








Katalog mit Programmbeschreibungen NUR gegen DM 1,00 in Briefmarken, 
Versandkosten: bis DM 150,- Vorauskasse DM 350 Nachnahme DM 6;- 
ab DM 150,- keine Versandkosten 
Preisänderungen, Irrtümer und Streichungen vorbehalten. K= KASSETTE 
Besuchen Sie unser Geschäftslokal in Senden, Haydnstraße 2. 







D= DISK 
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Gewerbliche ISTETTTSEEN 





EEERRERBRRERER 
R C-16PPlus 4GRATIS-INFOR 
% Spiele - Anwender - und & 
Kopierprogramme/Hardware. 

Gratis POKE-Liste bei: 

®& Thomas Görtz & 
Postfach 11 05 18 

® 6100 Darmstadt & 
& Postkarte genügtil!! & 


BREERERERERER 
greorennennennes 


$ . CSA-HEIG Plus ar“ 
> 64 KByle Erweilerung 
$prachsyntesizer kompl. 
& Lighipen inkl. Sollware 
& Transistor Tester 
© Kondensator Tester 
USER-Port mit 6526 
Hardeopy-Modul 
D.-Zeichensalzmodul 
Texteditor-Modul 
ATTY-Modul 
Pronrammsammlung Disk 1 
Script Plus Erw. Disk 


Weiteres umlangreiches Zubehör. 


Info: Willi Keßler.- elektronik - 
Ruprechistr. 14, 6735 Edesheim 
Tel.: 06323/7114 
000065600660 950600® 
ELIIITTEITTTTTLTT 


Spitzensoftware für 
C-16/+4 und CPC 


wen 
om 


ss3s388 33335353 


OH HHOHPOOPHH 


u mn 
Bar: 2ER 


OH HHYHHHS 


Kostenloser 
Katalog bei: 
Jupitersoft GdbR 
Frühlingsstr. 12 
8831 Weiboldshausen 
% Computertyp angeben! % 
DLR ETEIIEELTELENT | 


KERELHEFRRESE 


...........n.0.. 
KEREEKKIK HIHI a 9 090 00 00 0000 


[727.37 :07 307070207. 207 027. 207.27 27020 


®” C-.16/116-Plus4 
Software 


- Textprogramm mit 80 Zeichen 
pro Zeile auf dem Schirm 
sichtbar 
CAD-Programm mit 6-facher 
Schirmfläche und 4 Schriftgrößen 
je Programm 39,- 
für 64KByte RAM 


ZAP0-Software, I.R. Köhler 
Potsdamer Sir. 27, 
1000 Berlin 45 
Tel.: 0830/8392505 


ET ET | 
RERERSESE 
PLUS 4 - C-16 - C-64 
Lernprogramme 
Techn. Mathe + Grafik zu 
reelem Preis Zahnr., Festigk., 
Hydr., Geometrie, Physik, Che- 
mie, Test + Train.prg., 
Bruchrechn., Vokabeln 
Cass./Disk Kat.. 1 DM 
Briefm., Comp.-Typ angeben 


3333393933395 


3 


Anita Ristau 
Peetzweg 9, 3320 Salzgitter 1 


TETTTTLTTTT 
KERRRRRERERK 


Der Spezialist für: 
C-16/116/Plus 4 


Umbau 64K - Umbausets 
Freeware Reparaturen 
-Zubehör - Turbotape 
LOGO - FORTH - Compiler 
„Assembler. Alle Commodore 
Ersatzteile Module-Platinen- 
Spiele-Bücher 
Elektronic-Technic-Ing. 
Uwe Peters 
D-2351 Trappenkamp, Tan- 
nenweg 9, Tel.: 04323/3991 
***Kostenlose Infos*** 


KRRKKKRERERKR 


PEFTFTFTERERELLITTUULIILIILILLLEEREEREERER 


Computerservice 
Tino Bofstede 

An der Windmühle 8 
6010 Bergheim 5 


Programmkatalog 


mit ernsthaften Programmen und Spielen für 


"Amiga 
6128 
:C64 


gegen 2 mal 80 Pf in Briefmarken 
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616/116 
-Plus/& 
:VC 80 





KLEINANZEIGEN EEE 


Biete Hardware 





EILT !! Verkaufe für Plus 4 bzw. C- 
64 ein Modem incl. Software und deut- 
scher Anleitung. VHB 170 DM. 
Außerdem für C-16/Plus 4 verschiedene 
Originalkassetten. Stück 5 DM! 

Dirk Freund, 

Rosenstr. 7, 

3563 Elmshausen 


Original Turbo Plus Modul für 25 
DM incl. Platine. Diverse Module für C- 
16/Plus 4 und Sampler (fertig) bei: 

E. Sirges, 

Bismarckstr. 73, 

5100 Aachen, 

Tel.: 0241/513765 


Verkaufe Plus 4, Datasette, 3 Origi- 
nale, 2 Joysticks, ca. 200 Games, Lite- 
ratur (Wert ca. 200 DM), 1a Zustand we- 
gen Systemwechsel, statt 800 DM nur 
280 DM. 

Tel.: 04971/4550 Frank 


Verkaufe Plus 4 + Datasette + 2 
Joysticks + Adapter + 8 Original- 
Spiele + 6& Computerkassetten + 
Basic-Kurs + Handbuch und Bedie- 
nungsanleitung + 9 Zeitungen, origi- 
nalverpackt, 8 Monate alt mit Garantie, 
Preis 200 DM. 

Tel.: 02403/54883 


Verkaufe Drucker 

TYP Brother Hr-5c, halbes Jahr alt. VB 
180 DM (Neupreis 300 DM). Noch mit 
Garantie. 

Andree Freitag, 

Annastr. 42, 

4458 Osterwald 

Tel.: 05941/8344 


Commodore Pius 4 mit Floppy 
1581, Datasette, Mouse, Joystick, Zeit- 
schriften, viel Software (45 Kassetten- 
und 55  Diskettenprogrammen). 
Handbücher und Netzteil gibts für VB: 
570 DM. Alles in sehr gutem Zustand 
und originalverpackt. 

Daniel Kühne, 

Alte Dorfstr. 22, 

2127 Rullstorf 

Tel.: 04136/8484 


Verkaufe C-16/64K + Floppy 1541 
+ Datasette + ca. 400 Spiele + 2 Bü- 
cher + 2 Joysticks + Hefte. Angebote 


an: 

Peter Padberg, 
Hachmühlerstr. 18, 
3252 Bad Münder 1 


Verkaufe: Plus4 + Datasette + Joy- 
sticks + Adapter + Bücher + Hefte + 
40 Spiele für 200 DM wegen 
Computerwechsel. 

Tel.: 04324/1088 Sebastian Haß von 
Mo. - Fr. 15 - 18 Uhr! 


“nr... Top-Angebot vrr.* 
Lightpen für C-16 und Plus 4 
anschlußfertig mit Bedienungsanleitung 
und Demosoftware. Preis nur noch 50 
DM. Lieferung nur gegen Vorkasse + 
5DM Versandkostenpauschale. Bestel- 
lungen an: 

Rainer Jacobs, Zur Butzmühle 1, 
3558 Frankenberg 

Tel.: 06451/23125 ab 18 Uhr! 


*+*** C.16/116-USER ***** 
Biete Floppy 1551 + ACE64K (Disk) + 
Script Plus/Modul + Software +-Hefte 
64er-Sonderausgabe (PED - CAD usw.) 
Bei der Software handelt es sich um 
Originale, keine Raubkopien! Komplett- 
preis nur 220,- DM. Sofort anrufen: Mon- 
tags von 19 - 20 Uhr. 

Heribert Holtkamp, 05439/2242 


Plus 4 Jack Attack $Spielmodul 
gegen Vorkasse von 20.80 DM incl. 
Porto. Bei Interesse bitte wenden an: 
Alfred Hansen, Dedolphsir. 4, 

5100 Aachen 


VERKAUFE:C-16 + 64K, 1551, 
50 Disks, Abdeckhaube, Joystick, 


Diskbox, 1531, Maus, Ersatzteile, Hefte, 
Spiele originalverpackt + Zubehör usw. 
Info bei: : 

Dierk Scherz, Tel.: 02406/65681 


Verschiedenes 





Verkaufe: Ordner mit 87 Listings 
in Klarsichthüllen für C-16 zum abtip- 
pen. Preis 15 DM! 

Klaus Reimer, Grüner Weg 5, 

5464 Asbach 


Commodore 16/116/plus 4 

Die Weltsensation: 80 Super POKES 
(Listschutz, Saveschutz usw.) für nur 5 
DM!!! P. Schäfers, Riekestr. 5, 

4402 Greven 1 


Plus 4/C-16: Diverse Ersatzteile zu 
verkaufen. Kaufe gebrauchte Geräte, 
auch defekt. Tel.: 04209/5390 

Harald Hobbelmann, Junkernkamp 18, 
2822 Schwanewede } 


Inserentenverzeichnis 


Computerservice Maier 


Computerservice Tino Hofstede 


Dipl. Ing. Malte Rätzel 


S. Faulhaber’s Softwareversannd 


Gewerbliche Kleinanzeigen 


Hapera Hardware Versand 
Kingsoft 

Tronic-Verlag 

T.S. Datensysteme 


Anzeigenschluß für Heft 6/88 
KUBETT Ale k}:t:} 
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men SOFLWArE- 

service 

Das sind unsere 
Sonderhefte 


für C16/116/plus4! 





x 







































Sonderheft 1/86 (Heft ausverkauft) \ 
Best.-Nr. CSOK-1 Kassette 25,- DM 
Best.-Nr. CSOD-1 Diskette 25,- DM 


Cowboy-Duell, Mover, Freß-Man, Jump Man, 
Poker, Turmspringen, Tank-Wars, Rocketman, 
Comfort-List, Old- und Merge-Routine, Win- 
dow-Manager, Softscroll 


Sonderheft 2/87 (Heft 6,50 DM) 
Best.-Nr. CSOK-2/2 Kassette 25,- DM 
Best.-Nr. CSOD-2/2 Diskette 25,- DM 


Trace, Window Ass, Single File Backup, Menü- 
generator, Print, Little Painter, Maci, Mad 
Mamba, Megazone, Big Quest, Buchhaltung 16, 
Mad Maze, Mr. Laby, Solitaire 


Sonderheft 2/88 (Heft 6,50 DM) _ 
Best.-Nr. CSOK-2/3 Kassette _ 25,- DM 
Best.-Nr. CSOD-2/3 Diskette 25,-DM 
Checksummer, MC-Checksummer, Sounddigi- 
tizer (Teil2), NCS, Copy 64K, Jumping Bobby, 
Super Senso, Abenteuer im Land der Burgen, 
Basic-Compressor, PRO 7 



















Sonderheft 3/87 (Heft 6,50 DM) 
Best.-Nr. CSOK-3/2 Kassette 25,- DM 
Best.-Nr. CSOD-3/2 Diskette 25,- DM 
Rocket Command, Flower-Power, WAR, Fang 
den Floh, Grabsteindorf, China-Clan, Basic- 
Extension, C-16 Emulator, Disk-Start, Multi- 
Disk, Merge-Routine, Mastercopy 2, Basic- 
Find-Routine, Checksummer (Basic), MC- 
Checksummer, REM-INV-Maker 
























Sonderheft 2/86 (Heft 6,50 DM) 
Best.-Nr. CSOK-2 Kassette 25,- DM 
Best.-Nr. CSOD-2 Diskette 25,- DM 


Pac Man, Jäger des verlorenen Schatzes, Oil of 
Texas, Mimi, Jäger der verlorenen Möhre, Diam, 
Skateboarding, Auto-Starter, Color 16, Ton 
Clock, Textprogramm, Haushaltskonten, Key- 
Caller, Soundmachine 


Sonderheft 3/86 (Heft 6,50 DM) 
Best.-Nr. CSOK-3 Kassette 25,- DM 
Best.-Nr. CSOD-3 Diskette 25,- DM 
Hardscroll, Frame-Set, Load/Save-Signal, 
Computer-Kommunikation, Whitch, Super- 
Break-Out, Indiana Jones und der Schatz der 
Pharaonen, Master Mind, Kampf um Rom, 
Jumpi, Spionagelehrling, Monsterhunter, Gene- 
sis - der Super-Assempler, Musik-Compiler 


Sonderheft 1/87 (Heft ausverkauft) 

Best.-Nr. CSOK-1/2 Kassette 25,- DM 
Best.-Nr. CSOD-1/2 Diskette 25,- DM 
Datamaker, Auto-Old-Routine, Double Screen, 
2x Laufschrift, Screen Editor, dload, Speichersplit 
64 K, Turbo-Tape, Kundenrechnungen, Riesen- 
labyrinth, Crazy Worms, Convoy, Rich Freddy, 
Tedchip - Grafik und Sound 


Sonderheft 3/88 (Heft 6,50 DM) 
Best.-Nr. CSOK-3/3 Kassette 30,- DM 
Best.-Nr. CSOD-3/3 Diskette 30,- DM. 
Checksummer, MC-Checksummer, Sound- 

. digitizer (Teil3), Powerball, Death Planet, Solve 
Master, Trouble, Oil Hunter, Biorythmen, Ve- 
getarier, Diskduplicator, MC-Help 






































Sonderheft 4/88 (Heft 6,50 DM) 

Sonderheft 4/87 (Fieft 6,50 DM) Best.-Nr. CSOK-4/3 Kassette 35,- DM 
Best.Nr. CSOK-4/2 Kasserte 25, DM urn ZB ER N 
Best.-Nr. CSOD-4/2 Diskette 25,- DM E 
MC-Checksummer, Merge, Window-Manager, Checksummer, MC-Checksummer, Fußball- 
Basic-Start, Move Frame, Checksummer, GET- Manager, Kikstart, Scramble, Fight in Space, 
. SETREG, Musik-Demo, Musikus, Alldat, Super Special FX, Laufschriftgenerator, Sampler, 

Breakout, Mastergolf, Voracious Eater, Bank- Funny Letter, Startadressen-Lister, Terminal- 
überfall, Flottenmanöver, Speed-Ball programm 0 
Bestellungen bitte an: 
Tronic-Verlag 
Postfach 870 3440 Eschwege 
oder telefonisch: 
(0 56 51) 3 00 11 bis 19.00 Uhr 
Versand erfolgt per Nachnahme 


oder Vorkasse (Scheck, Bar) 















































‘ Sonderheft 1/88 (Heft 6,50 DM) 
Best.-Nr. CSOK-1/3 Kassette 25,- DM 
Best.-Nr. CSOD-1/3 Diskette 25,- DM 
Checksummer, MC-Checksummer, Sounddigi- 
tizer (Teil 1), Multi-Disk, WINDEF, Print- 
Timer, Soundmaster, File-Dump, AVP, Super- 
basic +4, Diamond Hunter, Dooly, U-Jäger, 
Crazy Factory, Das Weltspiel 












Eine Bitte: Der Softwareversand ist ein Leserservice des Tronic-Verlags. Alle Anleitungen sind daher dem - 
entsprechenden Heft zu entnehmen. Wollen Sie ältere Software, bestellen Sie bitte das Heft mit. Sollte es 

ausverkauft sein, kopiert unser Versand gegen einen Unkostenbeitrag in Höhe des Heftpreises alle Anlei- 
tungen für Sie. Vermerken Sie bitte auf Ihrer Bestellung » + Heft «! 
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SOFTWAER-SERVICE EEE 





Zeitschriften und Programme von 1987/83 


Heft 5/87 

Commodore 

Bestell-Nr. COM CK 5/3 16,-- DM 
Bestell-Nr. COM CD 5/3 20,-- DM 


Traffic Memory (VC 20), Shooter (VG 
20), Neuer Input (C16/116/plus 4), 
Superlist (C 16/116/plus 4), Marble (C 
16/116/plus 4-64 K), Character- 
Generator (C 16/116/plus 4), Quadrato 
(C 64), FCMON Teil 2 (C 64), Minas 
Gundur (c 64), Festspeicher (C 64) 


Schneider 
Bestell-Nr. COM SK 5/3 16,-- DM 
Bestell-Nr. COM SD 5/3 23,-- DM 


Omeganea, Screen Dump, Double 
Trouble 


Heft 6/87 

Commodore 

Bestell-Nr. COM CK 6/3 16,-- DM 
Bestell-Nr. COM CD 6/3 20,-- DM 


Mountain Jack (VC 20), 
Zeileninvertierer (VC 20), Recovery (C 
16/116/plus 4), Airwolf (C 16), Turtle 
Grafik (016/116/plus 4-64 K), Super 16 
(C 16/116/plus 4-64 K), Checksummer 
(C 64), Duell 2005 (C 64), DCMON Teil 
3 .(C 64), Town Rescue (C 64) 


Schneider 
Bestell-Nr. COM SK 6/3 16,-- DM 
Bestell-Nr.. COM SD 6/3 23,-- DM 


Break out, Luna 9 (464), Autobak (464), 
Checksummer 


Heft 7/87 

Commodore 

Bestell-Nr. COM CK 7/83 16,-- DM 
Bestell-Nr. COM CD 7/3 20,-- DM 


Bomb Scare (VC 20 + 8.K), Elxanor (VC 
20), Checksummer (C 16), Checksum- 
mer (C 16-MC), Fight in the Dessert (C 
16), Tom and the Apple Farm (C 
16/116/plus 4), Toolbox (C 16), Defense 
(© 16), Tapecopy (© 16), Autostarter (C 
16), Monitorschutz (C 16), Nibbler (C 
64), Window (C 64), Psion 3 (C 64), 
Hungry Hoodelum (C 64) 


Schneider 

Bestell-Nr. COM SK 7/3 16,-- DM 
Bestell-Nr. COM SD 7/3 
Grenad 2.0 (464/664/6128), Mini Brea- 
kout (464/664/6128), Firmjump (464), 
Nighiforce (464) 


Heft 8/87 

Commodore 

Bestell-Nr. COM CK 8/3 16,-- DM 
Bestell-Nr. COM-CD 8/3 20,-- DM 


ZS-GEN (VC 20 + 3 K), BATMAN 
(VG 20), Checksummer (MC, C 16), 
Turbo-Tape (C 16), Gosub mit Labels 
(C 16/116/ +4), Admiral (C 16 + 64 K), 
ZS-GEN (C 64), RAID (C 64), Zauber- 
wald (C 64) 


Schneider 

Bestell-Nr. COM SK 8/3 16,-- DM 
Bestell-Nr. COM SD 8/3 23,-- DM 
Diskmonitor (464), Orgel-Champ 


(464/664/6128), Buffalo Bill (464), Bliz- 
- zard (464/664/6128) 


4 


Heft 9/87 

Commodore 

Bestell-Nr. COM CK 9/3 16,- DM 
Bestell-Nr. COM CD 9/3 20,- DM 


Tauziehen (VC 20), Handwerker (VO 20 

+ 3K), Plus Basic (C 16/116), Invert 16 
(© 16/116/+4), JMP (C 16/116/+4), 
MC-Checksummer (GC 16), Bildmaker (C 
64), Fünf Wochen im Ballon (C 64) 


Schneider 
Bestell-Nr. COM SK 9/3 16,- DM 
Bestell-Nr. COM SD 9/3 23,- DM 


P.P.S. (446/664/6128), Prostar (464) 


Heft 10/87 


Commodore 

Bestell-Nr. COM CK 10/3 16,- DM 
Bestell-Nr. COM CD 10/3 20,- DM 
Fragezeichen (VC 20+3 K), MC- 
Checksummer (C 16), Games Basic (C 
16/116/plus 4), Ausweichmanöver (C 
16/116/plus 4), Eierlaufen (C16/116/ 
plus 4), Good Shot (C16/116/plus 4), 
Checksummer (© 64), Laufschrift (C 64), 
Floppy-Monitor (C 64), Blaster (C 64) 


Schneider } 

Bestell-Nr. COM SK 10/3 16,- DM 
Bestell-Nr. COM SD 10/3 23,- DM 
Turbo-Sprites (464/664/6128), Star 


Treck (464/664/6128), X-Race (464), 


Amsbreak (464/664/6128), Screens 
(464), Create (464) 

Heft 11/87 

Commodore : 
Bestell-Nr. COM CK 11/3 _16,- DM 
Bestell-Nr. COM CD 11/3 20,- DM 


Wormy (VC 20), Kursiv-Creater (C 16), 
MC-Checksummer (C 16), Creature 
Castle (C 16/116/plus 4), Alfred (C 
16/116/plus 4), Checksummer (C 16), 
Time 64 (C 64), Last Mission (C 64), Vier 
in einer Reihe (C 64) 


Schneider 
Bestell-Nr. COM SK 11/3 16,- DM 
Bestell-Nr. COM SD 11/73 23,- DM 


Texter (464/664/6128), Burning Wheels 
(464/664/6128), Syndrome’s Message 


(464/664/6128), Quadrato (464/664/ 
6128), Checksummer (CPC) 

Heft 12/87 

Commodore 

Bestell-Nr. COM CK 12/3 16,- DM 
Bestell-Nr. COM CD 12/3 20,- DM 


Alien Attack (VC 20), Super-Senso (VC 
20 + 3 K), MC-Checksummer (C 16), 
Egon (C 16), Hunter (C 16), Basic- 
Bequem (C 16), Checksummer (C 64), 
Burgenstürmer (C 64), Malibu (C 64) 


Schneider 
Bestell-Nr. COM SK 12/3 16,- DM 
Bestell-Nr. COM SD 12/3 ° 23,- DM 


GENAD 2.1 (464/664/6128), Multimode 
(464), Master Mission (464/664/6128), 
Fireball (464/664/6128) 


Heft 1/88 

Commodore 

Bestell-Nr. COM CK 1/4 16,- DM 
Bestell-Nr. COM CD 1/4 20,- DM 


Kupka-Kola (VC 20) Pac (VC 20 + 8K), 
Checksummer (© 16), MC- 
Checksummer (C 16), Append (C 
16/116/+4), 15’er Puzzle (C 16/116/ 
+4), Invasion (C 16/116/+4), Quadris 
(© 16/116/+4), Directory-Help (C 64), 
Auto-Start (C 64), Push II (C 64), Check- 
summer (C 64), Jac the Pac (C 64), 
Mission Germany (C 64) 


Schneider 
Bestell-Nr. COM SK 1/4 16,- DM 
Bestell-Nr. COM SD 1/4 23,- DM 


Symbol Poker (464/664/6128), Hexkey 
(464/664/6128), Print Pictures(464/ 
664/6128), Windfall (464) 


Heft 2/88 

Commodore 

Bestell-Nr. COM CK 2/4 16,- DM 
Bestell-Nr. COM CD 2/4 20,- DM 


Fred the Snake (VC 20+3 K), DINA 4 
Hardcopy (plus 4), Reversa (C 16), 
Space Fly (C 16+32 K/plus 4), Sputnic 
Game (C 64), Smash (C 64) 


Schneider ' 

Bestell-Nr. COM SK 2/4 16,- DM 
Bestell-Nr. COM SD 2/4 23,- DM 
Asteroids (464/664/6128) 

Heft 3/88 

Commodore 

Bestell-Nr. COM CK 3/4 16,- DM 
Bestell-Nr. COM CD 34 20,- DM 


Pixel-Grafik (VC 20), Pooyan (VC 20), 
Grafiklupe (C 16/116/plus 4), Farbta- 

. stenbelegung (C 16/116/plus 4), Firelab 
(© 16/1 16/plus 4), MC-Checksummer (C 
16), © 64-Checksummer, Multitoolbox 
(© 64), Kursiv-Creater (C 64), Copter- 
Duell (C 64), Mad Mission (C 64), Drei 
Drachentöter (C 64) 


Schneider 

Bestell-Nr. COM SK 3/4 16,- DM 
Bestell-Nr. COM SD 3/4 23,- DM 
Filemanager (464), Light-Gunner 
(464/664/6128) 

Heft 4/88 

Commodore 

Bestell-Nr. COM CK 4/4 16,- DM 
Bestell-Nr. COM CD 4/4 20,- DM 


Char-Befehl (C 16/116/plus 4), Check- 
summer (C 16), MC-Checksummer (C 
16), Scörehunt (C 16/116/plus 4), 
Char-Menü (C 64), Sky-Fighter (C 64), 
Scoit (© 64) 


Schneider 
Bestell-Nr. COM SK 4/4 16,- DM 
Bestell-Nr. COM SD 4/4 23,- DM 


Laufschrift (464/664/6128), Tron Tor- 
nado (464/664/6128), Checksummer 
(SPC) 


Heft 5/88 

Commodore 

Bestell-Nr. COM CK 5/4 16,- DM 
Bestell-Nr. COM CD 5/4 20,- DM 


MC-Checksummer (C 16), © 16 Schal- 
ter (© 16 + 64 K), Window-window (C 
16/116/+4), Starwars (C 16/116/-+4), 
Char-Print/Char-Basic (C 64), Kosmo- 


"drom (C 64) 

Schneider 

Bestell-Nr. COM SK 5/4 16,- DM 
Bestell-Nr. COM SD 5/4 23,- DM 


Diskettenverwaltung (464/6128), Trick 
by Trees (464/664/6128), Checksummer 
(CPC) 


Heft 6/88 

Commodore 

Bestell-Nr. COM CK 6/4 16,- DM 
Bestell-Nr. COM CD 6/4 20,- DM 


Char-Adress/Char-Rom (C 64), Hires- 
Mirror (C-16/116+64K/plus 4), Mister 
Stone (C 64), Krackout (C-16/116/plus 
4), Nightmare (C 64), Xelien (C- 
16/1 16/plus 4) 


Schneider 
Bestell-Nr. COM SK 6/4 16,- DM 
Bestell-Nr. COM SD 6/4 23,- DM 


Checksummer (CPC), Compress (464/ 
664/6128), Subcommand (464/664/ 
6128), Alien-Landing (464/664/6128) 


Heft 7/88 

Commodore 

Bestell-Nr. COM CK 7/4 16,- DM 
Bestell-Nr. COM CD 7/4 20,- DM 


Ghostwriter (C 64), Ganymed (C 64), 
Speicherplatz (C 16), Basic-Sucher (C 
16), High Screen Polish (G 16), Hypra 
Load .(C 16), Hacker Training (C 16) 


Schneider 
Bestell-Nr. COM SK 7/4 16,- DM 
Bestell-Nr. COM SD 7/4 23,- DM 


Tapecopy-(464), The Expedition (464), 
Zurück in die Zukunft (464/664/6128), 
Checksummer (464/664/6128) 


Heft8/88 

Commodore 

Bestell-Nr. COM CK 8/4 16,- DM 
Bestell-Nr. COM CD 8/4 20,- DM 


Disk-Help (C-16), Sprachausgabe (C- 
64), Big’ Apple (C-16), Intruder (C-64) 
Sedam (C-16), Zonex (C-16) 


Schneider 
Bestell-Nr. COM SK 8/4 16,- DM 
Bestell-Nr. COM SD 8/4 23,- DM 


Style-Zeichensatz (CPC 464/664/6128), 
Bomb-Pac (CPC 464/664/6128), Check- 
summer (CPC 464/664/6128) 


Hefte und Programme Compute mit (Normalausgabe) 


C16 - SA 5/88 
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EEE SOFTWARE-SSERVICE 





C-64 


Superpaket 1 
Baller-Spiele 
Mission Code, Duell 2005, Intercep- 
ter Base, Space Odyssey, Raid 


CBK-1 20,- DM 
CBD-1 20,- DM 











Superpaket 2 
Strategie-Spiele 
Quadrato, 4 in einer Reihe, Mühle, 
Joe, Rowly, Psion 
CSK-1 

CSD-1 






20,- DM 
20,- DM 









Superpaket 3 
Abenteuer-Spiele 


Stoneage Comic, Taxi-Driver, Biene 
Maya, Shila, Minas Gundur, 
Treasure-Hunt 


CAK-1 
CAD-1. 












20,- DM 
20,- DM 







Superpaket 4 
Geschicklichkeits- 
Spiele 

Schotter, Space-TAxI, Haunted Inn, 
Turbo Racer 
CGK-1 
CGD-1 











20,- DM 
20,- DM 








pien der Spielbeschreibungen. 
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Anleitungen zu unseren Programmen erhalten Sie aus unseren Hef- 
ten. Bei ausverkauften Heften erhalten Sie zum Heftpreis Fotoko- 


Hefte ohne Software nur gegen Vorkasse! 


Spitzenspiele zum Superpreis! 


C-16/116/+4 


Superpaket 1 
Baller-Spiele 


Good Shot, Hunter, Cosmic Terror, 


* Hyperspace 


OBK-1 
OBD-1 


20,- DM 
20,- DM 









Superpaket 2 
Geschicklichkeits- 
Spiele 


Grazy Worm, Panic, Frogger, Egon, 
Eierlauf, Ausweichmanöver, * Dan- 
ger Willi, Tom, Airwolf, McStoney 


OGK-1 20,- DM 
OGD-1 20,- DM 















Superpaket 3 
Strategie-Spiele 


Cube, Super Q-Bert, Schwimmen, 
Quadrato, Memory, * Admiral, 
15ner Puzzle, Quadris 


OSK-1 20,- DM 
OSD-1 20,- DM 








Achtung!!! 
Die mit * gekennzeichneten 


Programme benötigen 
‚mindestens 32 K RAM 













Schneider CPC 


Superpaket 1 
Baller-Spiele 
Smash It, Hero, Triton, Red Alert, 
Procon Delta, Double Trouble, 


Omeganea, Luna 9 (nur 464), Night 
Force (nur 464), Blizzard 


SBK-1 20,- DM 
SBD-1 20,- DM 











Superpaket 2 
Geschicklichkeits- 
Spiele 






Pacman, Boing Boing, Master Miss- 
ion, Fireball, Breakout, Amsbreak, 
Orbit Chikane, Panik, Burning 
Wheels 


SGK-2 
SGD-2 


software service 


Der Tronic-Verlag bietet Spitzen- 
software für Jedermann. 
Überzeugen Sie sich von unseren 
Angeboten, und bestellen Sie noch 
heute. Alle Bestellungen werden 
innerhalb nur 












20,- DM 
20,- DM 






1 Woche 


(ohne Postweg) 


nach Eingang bearbeitet. 
Telefonische Bestellung unter der 
Rufnummer 


0 56 51 /3 00 11 
bis 19.00 Uhr 





C16-SA 4/88 


Premiere 
ist im September ! 


012-777 29a2; 
Comp n 


U 
LL:) Pie, 
der 





...wieder einzigartig auf 
dem Zeitschriftenmarkt. 
Laßt Euch überraschen. 
Ab September jeden 
Monat neu. 


Das große CI6 -Plus/4 
Sommer-Preisfestival 
dei KINGSOFT 


Sack Attack 


C-16 (64 K) 





Ein ‚Powerpack der Extraklasse! Diese einzigartige 
Spielesammlung bietet Ihnen 6 phantastische Spiele 
zum Preis von einem. Alien Invasion, Jump Jet, 





Karate King, Outon aLimb, Strip Poker, Terra Nova. 
C16 (64K),Plus/4 





Ein aufregendes, professionell Alarm in der Großstadt! Bringen Sie mit Ein Riesen-Arcade-Adventure mit vielen 
gemachtes Spiel. Es enthält 64 Ihrem Maniax wieder Licht in die nebel- Leveln und 2-Spieler Option. 
Spielstufen. Diese können Sie nur verhangene Großstadt. Flotte Grafik mit witzigen Monster- 

mit Geschicklichkeit und Strategie C 16 (64K), Plus/4 Sprites. Toller Sound! 


meistern. B 5 DM 29,95 C16 Plus/4 










tyearwheng | S>Uper fextverarbe 
ZEICHENSATZ ern | 


Script Plus: Textprogramm als 
ENG EeROnR aaa ed Steckmodul mit ausführlicher 
Anleitung. Deutscher Zeichen- 
satz: @ kompatibel zum Script 
Plus @ normgerechte DIN- 
Tastatur mit allen Umlauten an 
den richtigen Stellen @ mit klei- °* 
nem Schalter umschaltbar 
zwischen ASC Il und DIN-Tasta- 
tur @ mit Tastenaufkleber 

Umlaute ausdruckbar, wenn 
dieser einen DIN-Zeichensatz 
hat (z.B. MPS-1000/1200) 








DEUTSCHER | 
ZEICHENSATZ, 


® Mit EPROM, Schalter und 
Tastenaufklebern 

® Leichter Embau ohne Löten | 

® Kompatibel zu SCRIPT PLUS und | 
vielen anderen Programmen | 








i Das Spiel für die ganze Familie! 
Beantworten Sie 4000 interessante 


arate 9 Das Super-Karate! und heitere Fragen aus vielen Wissens- 
’ Verblüffen Sie Ihre Gegner. Lassen Sie gebieten. Lernen Sie spielerisch — Er- 
sich in fernöstliche Stimmung versetzen. weitern Sie Ihr Wissen! 


© 16 (64K), Plus/4 C16 (64K), Plus/4 





„Alles, was Sie schon immer über Computer wissen wollten!“ 

Inhalt: Grafik, Sound, Maschinensprache, Utilities (Hilfsprogramme) u.v.m. 
Besonderes Gewicht wurde auf die Bereiche Grafik und Maschinensprache ge- 
legt. Grafik: @ Die Grafikmöglichkeiten des eingebauten Video-Chips TED @ Frei 
programmierbarer Zeichensatz usw. Maschinensprache: @ Einführungskurs in 
die Maschinensprache @ Tips und Tricks für Anfänger — Keine Sorge! Aller 
Anfang ist schwer @ Große Vergleichstabelle C 64 und Plus/4 zum leichteren 





Umschreiben von Programmen. >C16/PLus“ 
er TE ıterolympiade Der beste Oldie aus dem nolition Das Spiel für das neu erwachte 
Angebot der Computer-Spiele. Dieses Spiel Break-Out-Fieber. Ihr Computer wird voll 
zu besitzen ist ein „Muß“. Mit 6 verschiede- ausgenutzt. Einzigartige Neuheit: Für 2 Spie- 
nen Disziplinen für 1 - 6 Mitspieler. ler gleichzeitig! 





C 16, Plus/4 2 





KINGSOFT 


